vim: src/spellsuggest.c annotate

annotate src/spellsuggest.c @ 30823:80a336303eb9 v9.0.0746

patch 9.0.0746: breakindent test cases are commented out Commit: https://github.com/vim/vim/commit/856c5d2bc7c3864f8b63a0ab3e376d5c5e51f1d5 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Oct 13 21:54:28 2022 +0100 patch 9.0.0746: breakindent test cases are commented out Problem: Breakindent test cases are commented out. Solution: Adjust expected result to slightly different behavior. Correct computations for cursor position.

author	Bram Moolenaar <Bram@vim.org>
date	Thu, 13 Oct 2022 23:00:03 +0200
parents	6d93f09815c1
children	c7983f593fa7

rev	line source
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1 /* vi:set ts=8 sts=4 sw=4 noet:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3 * VIM - Vi IMproved by Bram Moolenaar
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	5 * Do ":help uganda" in Vim to read copying and usage conditions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	6 * Do ":help credits" in Vim to see a list of people who contributed.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	7 * See README.txt for an overview of the Vim source code.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	8 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	9
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	10 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	11 * spellsuggest.c: functions for spelling suggestions
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	12 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	13
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	14 #include "vim.h"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	15
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	16 #if defined(FEAT_SPELL) \|\| defined(PROTO)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	17
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	18 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	19 * Use this to adjust the score after finding suggestions, based on the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	20 * suggested word sounding like the bad word. This is much faster than doing
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	21 * it for every possible suggestion.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	22 * Disadvantage: When "the" is typed as "hte" it sounds quite different ("@"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	23 * vs "ht") and goes down in the list.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	24 * Used when 'spellsuggest' is set to "best".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	25 */
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	26 #define RESCORE(word_score, sound_score) ((3 * (word_score) + (sound_score)) / 4)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	27
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	28 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	29 * Do the opposite: based on a maximum end score and a known sound score,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	30 * compute the maximum word score that can be used.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	31 */
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	32 #define MAXSCORE(word_score, sound_score) ((4 * (word_score) - (sound_score)) / 3)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	33
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	34 // only used for su_badflags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	35 #define WF_MIXCAP 0x20 // mix of upper and lower case: macaRONI
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	36
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	37 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	38 * Information used when looking for suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	39 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	40 typedef struct suginfo_S
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	41 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	42 garray_T su_ga; // suggestions, contains "suggest_T"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	43 int su_maxcount; // max. number of suggestions displayed
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	44 int su_maxscore; // maximum score for adding to su_ga
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	45 int su_sfmaxscore; // idem, for when doing soundfold words
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	46 garray_T su_sga; // like su_ga, sound-folded scoring
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	47 char_u *su_badptr; // start of bad word in line
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	48 int su_badlen; // length of detected bad word in line
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	49 int su_badflags; // caps flags for bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	50 char_u su_badword[MAXWLEN]; // bad word truncated at su_badlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	51 char_u su_fbadword[MAXWLEN]; // su_badword case-folded
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	52 char_u su_sal_badword[MAXWLEN]; // su_badword soundfolded
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	53 hashtab_T su_banned; // table with banned words
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	54 slang_T *su_sallang; // default language for sound folding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	55 } suginfo_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	56
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	57 // One word suggestion. Used in "si_ga".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	58 typedef struct suggest_S
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	59 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	60 char_u *st_word; // suggested word, allocated string
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	61 int st_wordlen; // STRLEN(st_word)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	62 int st_orglen; // length of replaced text
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	63 int st_score; // lower is better
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	64 int st_altscore; // used when st_score compares equal
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	65 int st_salscore; // st_score is for soundalike
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	66 int st_had_bonus; // bonus already included in score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	67 slang_T *st_slang; // language used for sound folding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	68 } suggest_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	69
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	70 #define SUG(ga, i) (((suggest_T *)(ga).ga_data)[i])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	71
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	72 // TRUE if a word appears in the list of banned words.
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	73 #define WAS_BANNED(su, word) (!HASHITEM_EMPTY(hash_find(&(su)->su_banned, word)))
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	74
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	75 // Number of suggestions kept when cleaning up. We need to keep more than
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	76 // what is displayed, because when rescore_suggestions() is called the score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	77 // may change and wrong suggestions may be removed later.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	78 #define SUG_CLEAN_COUNT(su) ((su)->su_maxcount < 130 ? 150 : (su)->su_maxcount + 20)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	79
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	80 // Threshold for sorting and cleaning up suggestions. Don't want to keep lots
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	81 // of suggestions that are not going to be displayed.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	82 #define SUG_MAX_COUNT(su) (SUG_CLEAN_COUNT(su) + 50)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	83
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	84 // score for various changes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	85 #define SCORE_SPLIT 149 // split bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	86 #define SCORE_SPLIT_NO 249 // split bad word with NOSPLITSUGS
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	87 #define SCORE_ICASE 52 // slightly different case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	88 #define SCORE_REGION 200 // word is for different region
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	89 #define SCORE_RARE 180 // rare word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	90 #define SCORE_SWAP 75 // swap two characters
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	91 #define SCORE_SWAP3 110 // swap two characters in three
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	92 #define SCORE_REP 65 // REP replacement
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	93 #define SCORE_SUBST 93 // substitute a character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	94 #define SCORE_SIMILAR 33 // substitute a similar character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	95 #define SCORE_SUBCOMP 33 // substitute a composing character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	96 #define SCORE_DEL 94 // delete a character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	97 #define SCORE_DELDUP 66 // delete a duplicated character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	98 #define SCORE_DELCOMP 28 // delete a composing character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	99 #define SCORE_INS 96 // insert a character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	100 #define SCORE_INSDUP 67 // insert a duplicate character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	101 #define SCORE_INSCOMP 30 // insert a composing character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	102 #define SCORE_NONWORD 103 // change non-word to word char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	103
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	104 #define SCORE_FILE 30 // suggestion from a file
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	105 #define SCORE_MAXINIT 350 // Initial maximum score: higher == slower.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	106 // 350 allows for about three changes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	107
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	108 #define SCORE_COMMON1 30 // subtracted for words seen before
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	109 #define SCORE_COMMON2 40 // subtracted for words often seen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	110 #define SCORE_COMMON3 50 // subtracted for words very often seen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	111 #define SCORE_THRES2 10 // word count threshold for COMMON2
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	112 #define SCORE_THRES3 100 // word count threshold for COMMON3
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	113
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	114 // When trying changed soundfold words it becomes slow when trying more than
26771 fc859aea8cec patch 8.2.3914: various spelling mistakes in comments Bram Moolenaar <Bram@vim.org> parents: 26098 diff changeset	115 // two changes. With less than two changes it's slightly faster but we miss a
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	116 // few good suggestions. In rare cases we need to try three of four changes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	117 #define SCORE_SFMAX1 200 // maximum score for first try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	118 #define SCORE_SFMAX2 300 // maximum score for second try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	119 #define SCORE_SFMAX3 400 // maximum score for third try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	120
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	121 #define SCORE_BIG (SCORE_INS * 3) // big difference
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	122 #define SCORE_MAXMAX 999999 // accept any score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	123 #define SCORE_LIMITMAX 350 // for spell_edit_score_limit()
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	124
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	125 // for spell_edit_score_limit() we need to know the minimum value of
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	126 // SCORE_ICASE, SCORE_SWAP, SCORE_DEL, SCORE_SIMILAR and SCORE_INS
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	127 #define SCORE_EDIT_MIN SCORE_SIMILAR
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	128
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	129 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	130 * For finding suggestions: At each node in the tree these states are tried:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	131 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	132 typedef enum
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	133 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	134 STATE_START = 0, // At start of node check for NUL bytes (goodword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	135 // ends); if badword ends there is a match, otherwise
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	136 // try splitting word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	137 STATE_NOPREFIX, // try without prefix
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	138 STATE_SPLITUNDO, // Undo splitting.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	139 STATE_ENDNUL, // Past NUL bytes at start of the node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	140 STATE_PLAIN, // Use each byte of the node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	141 STATE_DEL, // Delete a byte from the bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	142 STATE_INS_PREP, // Prepare for inserting bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	143 STATE_INS, // Insert a byte in the bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	144 STATE_SWAP, // Swap two bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	145 STATE_UNSWAP, // Undo swap two characters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	146 STATE_SWAP3, // Swap two characters over three.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	147 STATE_UNSWAP3, // Undo Swap two characters over three.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	148 STATE_UNROT3L, // Undo rotate three characters left
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	149 STATE_UNROT3R, // Undo rotate three characters right
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	150 STATE_REP_INI, // Prepare for using REP items.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	151 STATE_REP, // Use matching REP items from the .aff file.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	152 STATE_REP_UNDO, // Undo a REP item replacement.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	153 STATE_FINAL // End of this node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	154 } state_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	155
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	156 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	157 * Struct to keep the state at each level in suggest_try_change().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	158 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	159 typedef struct trystate_S
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	160 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	161 state_T ts_state; // state at this level, STATE_
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	162 int ts_score; // score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	163 idx_T ts_arridx; // index in tree array, start of node
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	164 short ts_curi; // index in list of child nodes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	165 char_u ts_fidx; // index in fword[], case-folded bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	166 char_u ts_fidxtry; // ts_fidx at which bytes may be changed
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	167 char_u ts_twordlen; // valid length of tword[]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	168 char_u ts_prefixdepth; // stack depth for end of prefix or
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	169 // PFD_PREFIXTREE or PFD_NOPREFIX
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	170 char_u ts_flags; // TSF_ flags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	171 char_u ts_tcharlen; // number of bytes in tword character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	172 char_u ts_tcharidx; // current byte index in tword character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	173 char_u ts_isdiff; // DIFF_ values
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	174 char_u ts_fcharstart; // index in fword where badword char started
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	175 char_u ts_prewordlen; // length of word in "preword[]"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	176 char_u ts_splitoff; // index in "tword" after last split
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	177 char_u ts_splitfidx; // "ts_fidx" at word split
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	178 char_u ts_complen; // nr of compound words used
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	179 char_u ts_compsplit; // index for "compflags" where word was spit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	180 char_u ts_save_badflags; // su_badflags saved here
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	181 char_u ts_delidx; // index in fword for char that was deleted,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	182 // valid when "ts_flags" has TSF_DIDDEL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	183 } trystate_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	184
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	185 // values for ts_isdiff
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	186 #define DIFF_NONE 0 // no different byte (yet)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	187 #define DIFF_YES 1 // different byte found
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	188 #define DIFF_INSERT 2 // inserting character
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	189
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	190 // values for ts_flags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	191 #define TSF_PREFIXOK 1 // already checked that prefix is OK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	192 #define TSF_DIDSPLIT 2 // tried split at this point
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	193 #define TSF_DIDDEL 4 // did a delete, "ts_delidx" has index
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	194
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	195 // special values ts_prefixdepth
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	196 #define PFD_NOPREFIX 0xff // not using prefixes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	197 #define PFD_PREFIXTREE 0xfe // walking through the prefix tree
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	198 #define PFD_NOTSPECIAL 0xfd // highest value that's not special
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	199
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	200 static long spell_suggest_timeout = 5000;
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	201
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	202 static void spell_find_suggest(char_u badptr, int badlen, suginfo_T su, int maxcount, int banbadword, int need_cap, int interactive);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	203 #ifdef FEAT_EVAL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	204 static void spell_suggest_expr(suginfo_T su, char_u expr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	205 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	206 static void spell_suggest_file(suginfo_T su, char_u fname);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	207 static void spell_suggest_intern(suginfo_T *su, int interactive);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	208 static void spell_find_cleanup(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	209 static void suggest_try_special(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	210 static void suggest_try_change(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	211 static void suggest_trie_walk(suginfo_T su, langp_T lp, char_u *fword, int soundfold);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	212 static void go_deeper(trystate_T *stack, int depth, int score_add);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	213 static void find_keepcap_word(slang_T slang, char_u fword, char_u *kword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	214 static void score_comp_sal(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	215 static void score_combine(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	216 static int stp_sal_score(suggest_T stp, suginfo_T su, slang_T slang, char_u badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	217 static void suggest_try_soundalike_prep(void);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	218 static void suggest_try_soundalike(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	219 static void suggest_try_soundalike_finish(void);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	220 static void add_sound_suggest(suginfo_T su, char_u goodword, int score, langp_T *lp);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	221 static int soundfold_find(slang_T slang, char_u word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	222 static int similar_chars(slang_T *slang, int c1, int c2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	223 static void add_suggestion(suginfo_T su, garray_T gap, char_u goodword, int badlen, int score, int altscore, int had_bonus, slang_T slang, int maxsf);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	224 static void check_suggestions(suginfo_T su, garray_T gap);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	225 static void add_banned(suginfo_T su, char_u word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	226 static void rescore_suggestions(suginfo_T *su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	227 static void rescore_one(suginfo_T su, suggest_T stp);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	228 static int cleanup_suggestions(garray_T *gap, int maxscore, int keep);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	229 static int soundalike_score(char_u goodsound, char_u badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	230 static int spell_edit_score(slang_T slang, char_u badword, char_u *goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	231 static int spell_edit_score_limit(slang_T slang, char_u badword, char_u *goodword, int limit);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	232 static int spell_edit_score_limit_w(slang_T slang, char_u badword, char_u *goodword, int limit);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	233
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	234 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	235 * Return TRUE when the sequence of flags in "compflags" plus "flag" can
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	236 * possibly form a valid compounded word. This also checks the COMPOUNDRULE
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	237 * lines if they don't contain wildcards.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	238 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	239 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	240 can_be_compound(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	241 trystate_T *sp,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	242 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	243 char_u *compflags,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	244 int flag)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	245 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	246 // If the flag doesn't appear in sl_compstartflags or sl_compallflags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	247 // then it can't possibly compound.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	248 if (!byte_in_str(sp->ts_complen == sp->ts_compsplit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	249 ? slang->sl_compstartflags : slang->sl_compallflags, flag))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	250 return FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	251
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	252 // If there are no wildcards, we can check if the flags collected so far
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	253 // possibly can form a match with COMPOUNDRULE patterns. This only
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	254 // makes sense when we have two or more words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	255 if (slang->sl_comprules != NULL && sp->ts_complen > sp->ts_compsplit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	256 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	257 int v;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	258
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	259 compflags[sp->ts_complen] = flag;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	260 compflags[sp->ts_complen + 1] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	261 v = match_compoundrule(slang, compflags + sp->ts_compsplit);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	262 compflags[sp->ts_complen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	263 return v;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	264 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	265
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	266 return TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	267 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	268
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	269 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	270 * Adjust the score of common words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	271 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	272 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	273 score_wordcount_adj(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	274 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	275 int score,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	276 char_u *word,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	277 int split) // word was split, less bonus
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	278 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	279 hashitem_T *hi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	280 wordcount_T *wc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	281 int bonus;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	282 int newscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	283
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	284 hi = hash_find(&slang->sl_wordcount, word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	285 if (!HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	286 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	287 wc = HI2WC(hi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	288 if (wc->wc_count < SCORE_THRES2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	289 bonus = SCORE_COMMON1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	290 else if (wc->wc_count < SCORE_THRES3)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	291 bonus = SCORE_COMMON2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	292 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	293 bonus = SCORE_COMMON3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	294 if (split)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	295 newscore = score - bonus / 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	296 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	297 newscore = score - bonus;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	298 if (newscore < 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	299 return 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	300 return newscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	301 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	302 return score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	303 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	304
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	305 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	306 * Like captype() but for a KEEPCAP word add ONECAP if the word starts with a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	307 * capital. So that make_case_word() can turn WOrd into Word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	308 * Add ALLCAP for "WOrD".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	309 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	310 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	311 badword_captype(char_u word, char_u end)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	312 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	313 int flags = captype(word, end);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	314 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	315 int l, u;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	316 int first;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	317 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	318
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	319 if (flags & WF_KEEPCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	320 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	321 // Count the number of UPPER and lower case letters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	322 l = u = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	323 first = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	324 for (p = word; p < end; MB_PTR_ADV(p))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	325 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	326 c = PTR2CHAR(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	327 if (SPELL_ISUPPER(c))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	328 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	329 ++u;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	330 if (p == word)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	331 first = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	332 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	333 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	334 ++l;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	335 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	336
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	337 // If there are more UPPER than lower case letters suggest an
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	338 // ALLCAP word. Otherwise, if the first letter is UPPER then
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	339 // suggest ONECAP. Exception: "ALl" most likely should be "All",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	340 // require three upper case letters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	341 if (u > l && u > 2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	342 flags \|= WF_ALLCAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	343 else if (first)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	344 flags \|= WF_ONECAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	345
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	346 if (u >= 2 && l >= 2) // maCARONI maCAroni
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	347 flags \|= WF_MIXCAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	348 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	349 return flags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	350 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	351
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	352 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	353 * Opposite of offset2bytes().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	354 * "pp" points to the bytes and is advanced over it.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	355 * Returns the offset.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	356 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	357 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	358 bytes2offset(char_u **pp)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	359 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	360 char_u p = pp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	361 int nr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	362 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	363
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	364 c = *p++;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	365 if ((c & 0x80) == 0x00) // 1 byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	366 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	367 nr = c - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	368 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	369 else if ((c & 0xc0) == 0x80) // 2 bytes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	370 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	371 nr = (c & 0x3f) - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	372 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	373 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	374 else if ((c & 0xe0) == 0xc0) // 3 bytes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	375 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	376 nr = (c & 0x1f) - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	377 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	378 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	379 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	380 else // 4 bytes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	381 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	382 nr = (c & 0x0f) - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	383 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	384 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	385 nr = nr * 255 + (*p++ - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	386 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	387
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	388 *pp = p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	389 return nr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	390 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	391
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	392 // values for sps_flags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	393 #define SPS_BEST 1
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	394 #define SPS_FAST 2
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	395 #define SPS_DOUBLE 4
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	396
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	397 static int sps_flags = SPS_BEST; // flags from 'spellsuggest'
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	398 static int sps_limit = 9999; // max nr of suggestions given
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	399
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	400 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	401 * Check the 'spellsuggest' option. Return FAIL if it's wrong.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	402 * Sets "sps_flags" and "sps_limit".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	403 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	404 int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	405 spell_check_sps(void)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	406 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	407 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	408 char_u *s;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	409 char_u buf[MAXPATHL];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	410 int f;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	411
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	412 sps_flags = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	413 sps_limit = 9999;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	414
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	415 for (p = p_sps; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	416 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	417 copy_option_part(&p, buf, MAXPATHL, ",");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	418
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	419 f = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	420 if (VIM_ISDIGIT(*buf))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	421 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	422 s = buf;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	423 sps_limit = getdigits(&s);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	424 if (s != NUL && !VIM_ISDIGIT(s))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	425 f = -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	426 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	427 else if (STRCMP(buf, "best") == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	428 f = SPS_BEST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	429 else if (STRCMP(buf, "fast") == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	430 f = SPS_FAST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	431 else if (STRCMP(buf, "double") == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	432 f = SPS_DOUBLE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	433 else if (STRNCMP(buf, "expr:", 5) != 0
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	434 && STRNCMP(buf, "file:", 5) != 0
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	435 && (STRNCMP(buf, "timeout:", 8) != 0
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	436 \|\| (!VIM_ISDIGIT(buf[8])
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	437 && !(buf[8] == '-' && VIM_ISDIGIT(buf[9])))))
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	438 f = -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	439
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	440 if (f == -1 \|\| (sps_flags != 0 && f != 0))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	441 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	442 sps_flags = SPS_BEST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	443 sps_limit = 9999;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	444 return FAIL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	445 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	446 if (f != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	447 sps_flags = f;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	448 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	449
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	450 if (sps_flags == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	451 sps_flags = SPS_BEST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	452
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	453 return OK;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	454 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	455
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	456 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	457 * "z=": Find badly spelled word under or after the cursor.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	458 * Give suggestions for the properly spelled word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	459 * In Visual mode use the highlighted word as the bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	460 * When "count" is non-zero use that suggestion.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	461 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	462 void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	463 spell_suggest(int count)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	464 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	465 char_u *line;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	466 pos_T prev_cursor = curwin->w_cursor;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	467 char_u wcopy[MAXWLEN + 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	468 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	469 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	470 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	471 suginfo_T sug;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	472 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	473 int mouse_used;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	474 int need_cap;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	475 int limit;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	476 int selected = count;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	477 int badlen = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	478 int msg_scroll_save = msg_scroll;
20786 90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	479 int wo_spell_save = curwin->w_p_spell;
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	480
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	481 if (!curwin->w_p_spell)
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	482 {
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	483 did_set_spelllang(curwin);
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	484 curwin->w_p_spell = TRUE;
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	485 }
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	486
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	487 if (*curwin->w_s->b_p_spl == NUL)
90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	488 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	489 emsg(_(e_spell_checking_is_not_possible));
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	490 return;
20786 90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	491 }
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	492
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	493 if (VIsual_active)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	494 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	495 // Use the Visually selected text as the bad word. But reject
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	496 // a multi-line selection.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	497 if (curwin->w_cursor.lnum != VIsual.lnum)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	498 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	499 vim_beep(BO_SPELL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	500 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	501 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	502 badlen = (int)curwin->w_cursor.col - (int)VIsual.col;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	503 if (badlen < 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	504 badlen = -badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	505 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	506 curwin->w_cursor.col = VIsual.col;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	507 ++badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	508 end_visual_mode();
28077 ba9f1a9ddaf9 patch 8.2.4563: "z=" in Visual mode may go beyond the end of the line Bram Moolenaar <Bram@vim.org> parents: 27752 diff changeset	509 // make sure we don't include the NUL at the end of the line
ba9f1a9ddaf9 patch 8.2.4563: "z=" in Visual mode may go beyond the end of the line Bram Moolenaar <Bram@vim.org> parents: 27752 diff changeset	510 line = ml_get_curline();
28081 b737bfa876c5 patch 8.2.4565: no command line completion for :breakadd and :breakdel Bram Moolenaar <Bram@vim.org> parents: 28077 diff changeset	511 if (badlen > (int)STRLEN(line) - (int)curwin->w_cursor.col)
28109 06535d568f74 patch 8.2.4579: cannot use page-up and page-down in the cmdline popup menu Bram Moolenaar <Bram@vim.org> parents: 28081 diff changeset	512 badlen = (int)STRLEN(line) - (int)curwin->w_cursor.col;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	513 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	514 // Find the start of the badly spelled word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	515 else if (spell_move_to(curwin, FORWARD, TRUE, TRUE, NULL) == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	516 \|\| curwin->w_cursor.col > prev_cursor.col)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	517 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	518 // No bad word or it starts after the cursor: use the word under the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	519 // cursor.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	520 curwin->w_cursor = prev_cursor;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	521 line = ml_get_curline();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	522 p = line + curwin->w_cursor.col;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	523 // Backup to before start of word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	524 while (p > line && spell_iswordp_nmw(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	525 MB_PTR_BACK(line, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	526 // Forward to start of word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	527 while (*p != NUL && !spell_iswordp_nmw(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	528 MB_PTR_ADV(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	529
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	530 if (!spell_iswordp_nmw(p, curwin)) // No word found.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	531 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	532 beep_flush();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	533 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	534 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	535 curwin->w_cursor.col = (colnr_T)(p - line);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	536 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	537
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	538 // Get the word and its length.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	539
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	540 // Figure out if the word should be capitalised.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	541 need_cap = check_need_cap(curwin->w_cursor.lnum, curwin->w_cursor.col);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	542
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	543 // Make a copy of current line since autocommands may free the line.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	544 line = vim_strsave(ml_get_curline());
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	545 if (line == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	546 goto skip;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	547
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	548 // Get the list of suggestions. Limit to 'lines' - 2 or the number in
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	549 // 'spellsuggest', whatever is smaller.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	550 if (sps_limit > (int)Rows - 2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	551 limit = (int)Rows - 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	552 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	553 limit = sps_limit;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	554 spell_find_suggest(line + curwin->w_cursor.col, badlen, &sug, limit,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	555 TRUE, need_cap, TRUE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	556
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	557 if (sug.su_ga.ga_len == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	558 msg(_("Sorry, no suggestions"));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	559 else if (count > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	560 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	561 if (count > sug.su_ga.ga_len)
18960 34aa888bf5ad patch 8.2.0041: leaking memory when selecting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 18957 diff changeset	562 smsg(_("Sorry, only %ld suggestions"), (long)sug.su_ga.ga_len);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	563 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	564 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	565 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	566 #ifdef FEAT_RIGHTLEFT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	567 // When 'rightleft' is set the list is drawn right-left.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	568 cmdmsg_rl = curwin->w_p_rl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	569 if (cmdmsg_rl)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	570 msg_col = Columns - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	571 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	572
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	573 // List the suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	574 msg_start();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	575 msg_row = Rows - 1; // for when 'cmdheight' > 1
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	576 lines_left = Rows; // avoid more prompt
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	577 vim_snprintf((char )IObuff, IOSIZE, _("Change \"%.s\" to:"),
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	578 sug.su_badlen, sug.su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	579 #ifdef FEAT_RIGHTLEFT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	580 if (cmdmsg_rl && STRNCMP(IObuff, "Change", 6) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	581 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	582 // And now the rabbit from the high hat: Avoid showing the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	583 // untranslated message rightleft.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	584 vim_snprintf((char )IObuff, IOSIZE, ":ot \"%.s\" egnahC",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	585 sug.su_badlen, sug.su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	586 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	587 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	588 msg_puts((char *)IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	589 msg_clr_eos();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	590 msg_putchar('\n');
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	591
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	592 msg_scroll = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	593 for (i = 0; i < sug.su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	594 {
29536 6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	595 int el;
6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	596
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	597 stp = &SUG(sug.su_ga, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	598
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	599 // The suggested word may replace only part of the bad word, add
29536 6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	600 // the not replaced part. But only when it's not getting too long.
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	601 vim_strncpy(wcopy, stp->st_word, MAXWLEN);
29536 6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	602 el = sug.su_badlen - stp->st_orglen;
6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	603 if (el > 0 && stp->st_wordlen + el <= MAXWLEN)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	604 vim_strncpy(wcopy + stp->st_wordlen,
29536 6d93f09815c1 patch 9.0.0109: writing over the end of a buffer on stack Bram Moolenaar <Bram@vim.org> parents: 29208 diff changeset	605 sug.su_badptr + stp->st_orglen, el);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	606 vim_snprintf((char *)IObuff, IOSIZE, "%2d", i + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	607 #ifdef FEAT_RIGHTLEFT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	608 if (cmdmsg_rl)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	609 rl_mirror(IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	610 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	611 msg_puts((char *)IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	612
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	613 vim_snprintf((char *)IObuff, IOSIZE, " \"%s\"", wcopy);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	614 msg_puts((char *)IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	615
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	616 // The word may replace more than "su_badlen".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	617 if (sug.su_badlen < stp->st_orglen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	618 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	619 vim_snprintf((char )IObuff, IOSIZE, _(" < \"%.s\""),
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	620 stp->st_orglen, sug.su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	621 msg_puts((char *)IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	622 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	623
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	624 if (p_verbose > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	625 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	626 // Add the score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	627 if (sps_flags & (SPS_DOUBLE \| SPS_BEST))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	628 vim_snprintf((char *)IObuff, IOSIZE, " (%s%d - %d)",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	629 stp->st_salscore ? "s " : "",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	630 stp->st_score, stp->st_altscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	631 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	632 vim_snprintf((char *)IObuff, IOSIZE, " (%d)",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	633 stp->st_score);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	634 #ifdef FEAT_RIGHTLEFT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	635 if (cmdmsg_rl)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	636 // Mirror the numbers, but keep the leading space.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	637 rl_mirror(IObuff + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	638 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	639 msg_advance(30);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	640 msg_puts((char *)IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	641 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	642 msg_putchar('\n');
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	643 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	644
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	645 #ifdef FEAT_RIGHTLEFT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	646 cmdmsg_rl = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	647 msg_col = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	648 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	649 // Ask for choice.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	650 selected = prompt_for_number(&mouse_used);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	651 if (mouse_used)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	652 selected -= lines_left;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	653 lines_left = Rows; // avoid more prompt
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	654 // don't delay for 'smd' in normal_cmd()
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	655 msg_scroll = msg_scroll_save;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	656 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	657
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	658 if (selected > 0 && selected <= sug.su_ga.ga_len && u_save_cursor() == OK)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	659 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	660 // Save the from and to text for :spellrepall.
18960 34aa888bf5ad patch 8.2.0041: leaking memory when selecting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 18957 diff changeset	661 VIM_CLEAR(repl_from);
34aa888bf5ad patch 8.2.0041: leaking memory when selecting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 18957 diff changeset	662 VIM_CLEAR(repl_to);
34aa888bf5ad patch 8.2.0041: leaking memory when selecting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 18957 diff changeset	663
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	664 stp = &SUG(sug.su_ga, selected - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	665 if (sug.su_badlen > stp->st_orglen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	666 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	667 // Replacing less than "su_badlen", append the remainder to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	668 // repl_to.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	669 repl_from = vim_strnsave(sug.su_badptr, sug.su_badlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	670 vim_snprintf((char )IObuff, IOSIZE, "%s%.s", stp->st_word,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	671 sug.su_badlen - stp->st_orglen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	672 sug.su_badptr + stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	673 repl_to = vim_strsave(IObuff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	674 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	675 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	676 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	677 // Replacing su_badlen or more, use the whole word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	678 repl_from = vim_strnsave(sug.su_badptr, stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	679 repl_to = vim_strsave(stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	680 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	681
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	682 // Replace the word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	683 p = alloc(STRLEN(line) - stp->st_orglen + stp->st_wordlen + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	684 if (p != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	685 {
28848 ba81f4ed59e2 patch 8.2.4947: text properties not adjusted when accepting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	686 int len_diff = stp->st_wordlen - stp->st_orglen;
ba81f4ed59e2 patch 8.2.4947: text properties not adjusted when accepting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	687
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	688 c = (int)(sug.su_badptr - line);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	689 mch_memmove(p, line, c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	690 STRCPY(p + c, stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	691 STRCAT(p, sug.su_badptr + stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	692
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	693 // For redo we use a change-word command.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	694 ResetRedobuff();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	695 AppendToRedobuff((char_u *)"ciw");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	696 AppendToRedobuffLit(p + c,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	697 stp->st_wordlen + sug.su_badlen - stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	698 AppendCharToRedobuff(ESC);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	699
21087 e01b20e3a720 patch 8.2.1095: may use pointer after freeing it Bram Moolenaar <Bram@vim.org> parents: 20786 diff changeset	700 // "p" may be freed here
e01b20e3a720 patch 8.2.1095: may use pointer after freeing it Bram Moolenaar <Bram@vim.org> parents: 20786 diff changeset	701 ml_replace(curwin->w_cursor.lnum, p, FALSE);
e01b20e3a720 patch 8.2.1095: may use pointer after freeing it Bram Moolenaar <Bram@vim.org> parents: 20786 diff changeset	702 curwin->w_cursor.col = c;
e01b20e3a720 patch 8.2.1095: may use pointer after freeing it Bram Moolenaar <Bram@vim.org> parents: 20786 diff changeset	703
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	704 changed_bytes(curwin->w_cursor.lnum, c);
28848 ba81f4ed59e2 patch 8.2.4947: text properties not adjusted when accepting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	705 if (curbuf->b_has_textprop && len_diff != 0)
ba81f4ed59e2 patch 8.2.4947: text properties not adjusted when accepting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	706 adjust_prop_columns(curwin->w_cursor.lnum, c, len_diff,
ba81f4ed59e2 patch 8.2.4947: text properties not adjusted when accepting spell suggestion Bram Moolenaar <Bram@vim.org> parents: 28809 diff changeset	707 APC_SUBSTITUTE);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	708 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	709 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	710 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	711 curwin->w_cursor = prev_cursor;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	712
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	713 spell_find_cleanup(&sug);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	714 skip:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	715 vim_free(line);
20786 90b96fa35e4b patch 8.2.0945: cannot use "z=" when 'spell' is off Bram Moolenaar <Bram@vim.org> parents: 20007 diff changeset	716 curwin->w_p_spell = wo_spell_save;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	717 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	718
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	719 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	720 * Find spell suggestions for "word". Return them in the growarray "*gap" as
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	721 * a list of allocated strings.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	722 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	723 void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	724 spell_suggest_list(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	725 garray_T *gap,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	726 char_u *word,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	727 int maxcount, // maximum nr of suggestions
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	728 int need_cap, // 'spellcapcheck' matched
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	729 int interactive)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	730 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	731 suginfo_T sug;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	732 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	733 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	734 char_u *wcopy;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	735
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	736 spell_find_suggest(word, 0, &sug, maxcount, FALSE, need_cap, interactive);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	737
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	738 // Make room in "gap".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	739 ga_init2(gap, sizeof(char_u *), sug.su_ga.ga_len + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	740 if (ga_grow(gap, sug.su_ga.ga_len) == OK)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	741 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	742 for (i = 0; i < sug.su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	743 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	744 stp = &SUG(sug.su_ga, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	745
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	746 // The suggested word may replace only part of "word", add the not
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	747 // replaced part.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	748 wcopy = alloc(stp->st_wordlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	749 + (unsigned)STRLEN(sug.su_badptr + stp->st_orglen) + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	750 if (wcopy == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	751 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	752 STRCPY(wcopy, stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	753 STRCPY(wcopy + stp->st_wordlen, sug.su_badptr + stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	754 ((char_u **)gap->ga_data)[gap->ga_len++] = wcopy;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	755 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	756 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	757
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	758 spell_find_cleanup(&sug);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	759 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	760
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	761 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	762 * Find spell suggestions for the word at the start of "badptr".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	763 * Return the suggestions in "su->su_ga".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	764 * The maximum number of suggestions is "maxcount".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	765 * Note: does use info for the current window.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	766 * This is based on the mechanisms of Aspell, but completely reimplemented.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	767 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	768 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	769 spell_find_suggest(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	770 char_u *badptr,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	771 int badlen, // length of bad word or 0 if unknown
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	772 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	773 int maxcount,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	774 int banbadword, // don't include badword in suggestions
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	775 int need_cap, // word should start with capital
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	776 int interactive)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	777 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	778 hlf_T attr = HLF_COUNT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	779 char_u buf[MAXPATHL];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	780 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	781 int do_combine = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	782 char_u *sps_copy;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	783 #ifdef FEAT_EVAL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	784 static int expr_busy = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	785 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	786 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	787 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	788 langp_T *lp;
23675 21f49d327f00 patch 8.2.2379: do spell suggestions twice if 'spellsuggest' contains number Bram Moolenaar <Bram@vim.org> parents: 22029 diff changeset	789 int did_intern = FALSE;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	790
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	791 // Set the info in "*su".
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	792 CLEAR_POINTER(su);
27028 c9474ae175f4 patch 8.2.4043: using int for second argument of ga_init2() Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	793 ga_init2(&su->su_ga, sizeof(suggest_T), 10);
c9474ae175f4 patch 8.2.4043: using int for second argument of ga_init2() Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	794 ga_init2(&su->su_sga, sizeof(suggest_T), 10);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	795 if (*badptr == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	796 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	797 hash_init(&su->su_banned);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	798
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	799 su->su_badptr = badptr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	800 if (badlen != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	801 su->su_badlen = badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	802 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	803 su->su_badlen = spell_check(curwin, su->su_badptr, &attr, NULL, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	804 su->su_maxcount = maxcount;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	805 su->su_maxscore = SCORE_MAXINIT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	806
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	807 if (su->su_badlen >= MAXWLEN)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	808 su->su_badlen = MAXWLEN - 1; // just in case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	809 vim_strncpy(su->su_badword, su->su_badptr, su->su_badlen);
24872 59cfa23bd9eb patch 8.2.2974: Greek spell checking uses wrong case folding Bram Moolenaar <Bram@vim.org> parents: 23675 diff changeset	810 (void)spell_casefold(curwin, su->su_badptr, su->su_badlen,
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	811 su->su_fbadword, MAXWLEN);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	812 // TODO: make this work if the case-folded text is longer than the original
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	813 // text. Currently an illegal byte causes wrong pointer computations.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	814 su->su_fbadword[su->su_badlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	815
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	816 // get caps flags for bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	817 su->su_badflags = badword_captype(su->su_badptr,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	818 su->su_badptr + su->su_badlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	819 if (need_cap)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	820 su->su_badflags \|= WF_ONECAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	821
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	822 // Find the default language for sound folding. We simply use the first
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	823 // one in 'spelllang' that supports sound folding. That's good for when
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	824 // using multiple files for one language, it's not that bad when mixing
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	825 // languages (e.g., "pl,en").
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	826 for (i = 0; i < curbuf->b_s.b_langp.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	827 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	828 lp = LANGP_ENTRY(curbuf->b_s.b_langp, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	829 if (lp->lp_sallang != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	830 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	831 su->su_sallang = lp->lp_sallang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	832 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	833 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	834 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	835
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	836 // Soundfold the bad word with the default sound folding, so that we don't
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	837 // have to do this many times.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	838 if (su->su_sallang != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	839 spell_soundfold(su->su_sallang, su->su_fbadword, TRUE,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	840 su->su_sal_badword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	841
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	842 // If the word is not capitalised and spell_check() doesn't consider the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	843 // word to be bad then it might need to be capitalised. Add a suggestion
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	844 // for that.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	845 c = PTR2CHAR(su->su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	846 if (!SPELL_ISUPPER(c) && attr == HLF_COUNT)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	847 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	848 make_case_word(su->su_badword, buf, WF_ONECAP);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	849 add_suggestion(su, &su->su_ga, buf, su->su_badlen, SCORE_ICASE,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	850 0, TRUE, su->su_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	851 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	852
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	853 // Ban the bad word itself. It may appear in another region.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	854 if (banbadword)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	855 add_banned(su, su->su_badword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	856
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	857 // Make a copy of 'spellsuggest', because the expression may change it.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	858 sps_copy = vim_strsave(p_sps);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	859 if (sps_copy == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	860 return;
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	861 spell_suggest_timeout = 5000;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	862
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	863 // Loop over the items in 'spellsuggest'.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	864 for (p = sps_copy; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	865 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	866 copy_option_part(&p, buf, MAXPATHL, ",");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	867
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	868 if (STRNCMP(buf, "expr:", 5) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	869 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	870 #ifdef FEAT_EVAL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	871 // Evaluate an expression. Skip this when called recursively,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	872 // when using spellsuggest() in the expression.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	873 if (!expr_busy)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	874 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	875 expr_busy = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	876 spell_suggest_expr(su, buf + 5);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	877 expr_busy = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	878 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	879 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	880 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	881 else if (STRNCMP(buf, "file:", 5) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	882 // Use list of suggestions in a file.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	883 spell_suggest_file(su, buf + 5);
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	884 else if (STRNCMP(buf, "timeout:", 8) == 0)
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	885 // Limit the time searching for suggestions.
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	886 spell_suggest_timeout = atol((char *)buf + 8);
23675 21f49d327f00 patch 8.2.2379: do spell suggestions twice if 'spellsuggest' contains number Bram Moolenaar <Bram@vim.org> parents: 22029 diff changeset	887 else if (!did_intern)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	888 {
23675 21f49d327f00 patch 8.2.2379: do spell suggestions twice if 'spellsuggest' contains number Bram Moolenaar <Bram@vim.org> parents: 22029 diff changeset	889 // Use internal method once.
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	890 spell_suggest_intern(su, interactive);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	891 if (sps_flags & SPS_DOUBLE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	892 do_combine = TRUE;
23675 21f49d327f00 patch 8.2.2379: do spell suggestions twice if 'spellsuggest' contains number Bram Moolenaar <Bram@vim.org> parents: 22029 diff changeset	893 did_intern = TRUE;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	894 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	895 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	896
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	897 vim_free(sps_copy);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	898
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	899 if (do_combine)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	900 // Combine the two list of suggestions. This must be done last,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	901 // because sorting changes the order again.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	902 score_combine(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	903 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	904
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	905 #ifdef FEAT_EVAL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	906 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	907 * Find suggestions by evaluating expression "expr".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	908 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	909 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	910 spell_suggest_expr(suginfo_T su, char_u expr)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	911 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	912 list_T *list;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	913 listitem_T *li;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	914 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	915 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	916
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	917 // The work is split up in a few parts to avoid having to export
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	918 // suginfo_T.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	919 // First evaluate the expression and get the resulting list.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	920 list = eval_spell_expr(su->su_badword, expr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	921 if (list != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	922 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	923 // Loop over the items in the list.
19888 435726a03481 patch 8.2.0500: using the same loop in many places Bram Moolenaar <Bram@vim.org> parents: 19661 diff changeset	924 FOR_ALL_LIST_ITEMS(list, li)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	925 if (li->li_tv.v_type == VAR_LIST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	926 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	927 // Get the word and the score from the items.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	928 score = get_spellword(li->li_tv.vval.v_list, &p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	929 if (score >= 0 && score <= su->su_maxscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	930 add_suggestion(su, &su->su_ga, p, su->su_badlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	931 score, 0, TRUE, su->su_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	932 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	933 list_unref(list);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	934 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	935
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	936 // Remove bogus suggestions, sort and truncate at "maxcount".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	937 check_suggestions(su, &su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	938 (void)cleanup_suggestions(&su->su_ga, su->su_maxscore, su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	939 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	940 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	941
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	942 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	943 * Find suggestions in file "fname". Used for "file:" in 'spellsuggest'.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	944 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	945 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	946 spell_suggest_file(suginfo_T su, char_u fname)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	947 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	948 FILE *fd;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	949 char_u line[MAXWLEN * 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	950 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	951 int len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	952 char_u cword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	953
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	954 // Open the file.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	955 fd = mch_fopen((char *)fname, "r");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	956 if (fd == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	957 {
26877 06a137af96f8 patch 8.2.3967: error messages are spread out Bram Moolenaar <Bram@vim.org> parents: 26771 diff changeset	958 semsg(_(e_cant_open_file_str), fname);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	959 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	960 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	961
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	962 // Read it line by line.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	963 while (!vim_fgets(line, MAXWLEN * 2, fd) && !got_int)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	964 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	965 line_breakcheck();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	966
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	967 p = vim_strchr(line, '/');
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	968 if (p == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	969 continue; // No Tab found, just skip the line.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	970 *p++ = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	971 if (STRICMP(su->su_badword, line) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	972 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	973 // Match! Isolate the good word, until CR or NL.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	974 for (len = 0; p[len] >= ' '; ++len)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	975 ;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	976 p[len] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	977
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	978 // If the suggestion doesn't have specific case duplicate the case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	979 // of the bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	980 if (captype(p, NULL) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	981 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	982 make_case_word(p, cword, su->su_badflags);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	983 p = cword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	984 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	985
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	986 add_suggestion(su, &su->su_ga, p, su->su_badlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	987 SCORE_FILE, 0, TRUE, su->su_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	988 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	989 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	990
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	991 fclose(fd);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	992
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	993 // Remove bogus suggestions, sort and truncate at "maxcount".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	994 check_suggestions(su, &su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	995 (void)cleanup_suggestions(&su->su_ga, su->su_maxscore, su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	996 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	997
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	998 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	999 * Find suggestions for the internal method indicated by "sps_flags".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1000 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1001 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1002 spell_suggest_intern(suginfo_T *su, int interactive)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1003 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1004 // Load the .sug file(s) that are available and not done yet.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1005 suggest_load_files();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1006
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1007 // 1. Try special cases, such as repeating a word: "the the" -> "the".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1008 //
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1009 // Set a maximum score to limit the combination of operations that is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1010 // tried.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1011 suggest_try_special(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1012
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1013 // 2. Try inserting/deleting/swapping/changing a letter, use REP entries
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1014 // from the .aff file and inserting a space (split the word).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1015 suggest_try_change(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1016
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1017 // For the resulting top-scorers compute the sound-a-like score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1018 if (sps_flags & SPS_DOUBLE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1019 score_comp_sal(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1020
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1021 // 3. Try finding sound-a-like words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1022 if ((sps_flags & SPS_FAST) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1023 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1024 if (sps_flags & SPS_BEST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1025 // Adjust the word score for the suggestions found so far for how
18498 9e6d5a4abb1c patch 8.1.2243: typos in comments Bram Moolenaar <Bram@vim.org> parents: 18251 diff changeset	1026 // they sound like.
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1027 rescore_suggestions(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1028
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1029 // While going through the soundfold tree "su_maxscore" is the score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1030 // for the soundfold word, limits the changes that are being tried,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1031 // and "su_sfmaxscore" the rescored score, which is set by
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1032 // cleanup_suggestions().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1033 // First find words with a small edit distance, because this is much
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1034 // faster and often already finds the top-N suggestions. If we didn't
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1035 // find many suggestions try again with a higher edit distance.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1036 // "sl_sounddone" is used to avoid doing the same word twice.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1037 suggest_try_soundalike_prep();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1038 su->su_maxscore = SCORE_SFMAX1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1039 su->su_sfmaxscore = SCORE_MAXINIT * 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1040 suggest_try_soundalike(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1041 if (su->su_ga.ga_len < SUG_CLEAN_COUNT(su))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1042 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1043 // We didn't find enough matches, try again, allowing more
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1044 // changes to the soundfold word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1045 su->su_maxscore = SCORE_SFMAX2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1046 suggest_try_soundalike(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1047 if (su->su_ga.ga_len < SUG_CLEAN_COUNT(su))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1048 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1049 // Still didn't find enough matches, try again, allowing even
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1050 // more changes to the soundfold word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1051 su->su_maxscore = SCORE_SFMAX3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1052 suggest_try_soundalike(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1053 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1054 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1055 su->su_maxscore = su->su_sfmaxscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1056 suggest_try_soundalike_finish();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1057 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1058
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1059 // When CTRL-C was hit while searching do show the results. Only clear
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1060 // got_int when using a command, not for spellsuggest().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1061 ui_breakcheck();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1062 if (interactive && got_int)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1063 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1064 (void)vgetc();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1065 got_int = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1066 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1067
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1068 if ((sps_flags & SPS_DOUBLE) == 0 && su->su_ga.ga_len != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1069 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1070 if (sps_flags & SPS_BEST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1071 // Adjust the word score for how it sounds like.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1072 rescore_suggestions(su);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1073
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1074 // Remove bogus suggestions, sort and truncate at "maxcount".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1075 check_suggestions(su, &su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1076 (void)cleanup_suggestions(&su->su_ga, su->su_maxscore, su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1077 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1078 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1079
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1080 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1081 * Free the info put in "*su" by spell_find_suggest().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1082 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1083 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1084 spell_find_cleanup(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1085 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1086 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1087
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1088 // Free the suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1089 for (i = 0; i < su->su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1090 vim_free(SUG(su->su_ga, i).st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1091 ga_clear(&su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1092 for (i = 0; i < su->su_sga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1093 vim_free(SUG(su->su_sga, i).st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1094 ga_clear(&su->su_sga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1095
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1096 // Free the banned words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1097 hash_clear_all(&su->su_banned, 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1098 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1099
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1100 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1101 * Try finding suggestions by recognizing specific situations.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1102 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1103 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1104 suggest_try_special(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1105 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1106 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1107 size_t len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1108 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1109 char_u word[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1110
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1111 // Recognize a word that is repeated: "the the".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1112 p = skiptowhite(su->su_fbadword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1113 len = p - su->su_fbadword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1114 p = skipwhite(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1115 if (STRLEN(p) == len && STRNCMP(su->su_fbadword, p, len) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1116 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1117 // Include badflags: if the badword is onecap or allcap
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1118 // use that for the goodword too: "The the" -> "The".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1119 c = su->su_fbadword[len];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1120 su->su_fbadword[len] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1121 make_case_word(su->su_fbadword, word, su->su_badflags);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1122 su->su_fbadword[len] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1123
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1124 // Give a soundalike score of 0, compute the score as if deleting one
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1125 // character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1126 add_suggestion(su, &su->su_ga, word, su->su_badlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1127 RESCORE(SCORE_REP, 0), 0, TRUE, su->su_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1128 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1129 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1130
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1131 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1132 * Change the 0 to 1 to measure how much time is spent in each state.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1133 * Output is dumped in "suggestprof".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1134 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1135 #if 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1136 # define SUGGEST_PROFILE
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1137 proftime_T current;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1138 proftime_T total;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1139 proftime_T times[STATE_FINAL + 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1140 long counts[STATE_FINAL + 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1141
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1142 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1143 prof_init(void)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1144 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1145 for (int i = 0; i <= STATE_FINAL; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1146 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1147 profile_zero(&times[i]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1148 counts[i] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1149 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1150 profile_start(&current);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1151 profile_start(&total);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1152 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1153
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1154 // call before changing state
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1155 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1156 prof_store(state_T state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1157 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1158 profile_end(&current);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1159 profile_add(&times[state], &current);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1160 ++counts[state];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1161 profile_start(&current);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1162 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1163 # define PROF_STORE(state) prof_store(state);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1164
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1165 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1166 prof_report(char *name)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1167 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1168 FILE *fd = fopen("suggestprof", "a");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1169
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1170 profile_end(&total);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1171 fprintf(fd, "-----------------------\n");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1172 fprintf(fd, "%s: %s\n", name, profile_msg(&total));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1173 for (int i = 0; i <= STATE_FINAL; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1174 fprintf(fd, "%d: %s (%ld)\n", i, profile_msg(&times[i]), counts[i]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1175 fclose(fd);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1176 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1177 #else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1178 # define PROF_STORE(state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1179 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1180
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1181 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1182 * Try finding suggestions by adding/removing/swapping letters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1183 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1184 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1185 suggest_try_change(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1186 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1187 char_u fword[MAXWLEN]; // copy of the bad word, case-folded
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1188 int n;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1189 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1190 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1191 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1192
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1193 // We make a copy of the case-folded bad word, so that we can modify it
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1194 // to find matches (esp. REP items). Append some more text, changing
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1195 // chars after the bad word may help.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1196 STRCPY(fword, su->su_fbadword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1197 n = (int)STRLEN(fword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1198 p = su->su_badptr + su->su_badlen;
24872 59cfa23bd9eb patch 8.2.2974: Greek spell checking uses wrong case folding Bram Moolenaar <Bram@vim.org> parents: 23675 diff changeset	1199 (void)spell_casefold(curwin, p, (int)STRLEN(p), fword + n, MAXWLEN - n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1200
25901 f48c435bd1df patch 8.2.3484: crash when going through spell suggestions Bram Moolenaar <Bram@vim.org> parents: 24872 diff changeset	1201 // Make sure the resulting text is not longer than the original text.
f48c435bd1df patch 8.2.3484: crash when going through spell suggestions Bram Moolenaar <Bram@vim.org> parents: 24872 diff changeset	1202 n = (int)STRLEN(su->su_badptr);
f48c435bd1df patch 8.2.3484: crash when going through spell suggestions Bram Moolenaar <Bram@vim.org> parents: 24872 diff changeset	1203 if (n < MAXWLEN)
f48c435bd1df patch 8.2.3484: crash when going through spell suggestions Bram Moolenaar <Bram@vim.org> parents: 24872 diff changeset	1204 fword[n] = NUL;
f48c435bd1df patch 8.2.3484: crash when going through spell suggestions Bram Moolenaar <Bram@vim.org> parents: 24872 diff changeset	1205
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1206 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1207 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1208 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1209
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1210 // If reloading a spell file fails it's still in the list but
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1211 // everything has been cleared.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1212 if (lp->lp_slang->sl_fbyts == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1213 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1214
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1215 // Try it for this language. Will add possible suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1216 #ifdef SUGGEST_PROFILE
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1217 prof_init();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1218 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1219 suggest_trie_walk(su, lp, fword, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1220 #ifdef SUGGEST_PROFILE
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1221 prof_report("try_change");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1222 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1223 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1224 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1225
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1226 // Check the maximum score, if we go over it we won't try this change.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1227 #define TRY_DEEPER(su, stack, depth, add) \
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	1228 ((depth) < MAXWLEN - 1 && (stack)[depth].ts_score + (add) < (su)->su_maxscore)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1229
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1230 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1231 * Try finding suggestions by adding/removing/swapping letters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1232 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1233 * This uses a state machine. At each node in the tree we try various
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1234 * operations. When trying if an operation works "depth" is increased and the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1235 * stack[] is used to store info. This allows combinations, thus insert one
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1236 * character, replace one and delete another. The number of changes is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1237 * limited by su->su_maxscore.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1238 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1239 * After implementing this I noticed an article by Kemal Oflazer that
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1240 * describes something similar: "Error-tolerant Finite State Recognition with
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1241 * Applications to Morphological Analysis and Spelling Correction" (1996).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1242 * The implementation in the article is simplified and requires a stack of
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1243 * unknown depth. The implementation here only needs a stack depth equal to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1244 * the length of the word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1245 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1246 * This is also used for the sound-folded word, "soundfold" is TRUE then.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1247 * The mechanism is the same, but we find a match with a sound-folded word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1248 * that comes from one or more original words. Each of these words may be
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1249 * added, this is done by add_sound_suggest().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1250 * Don't use:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1251 * the prefix tree or the keep-case tree
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1252 * "su->su_badlen"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1253 * anything to do with upper and lower case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1254 * anything to do with word or non-word characters ("spell_iswordp()")
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1255 * banned words
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1256 * word flags (rare, region, compounding)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1257 * word splitting for now
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1258 * "similar_chars()"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1259 * use "slang->sl_repsal" instead of "lp->lp_replang->sl_rep"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1260 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1261 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1262 suggest_trie_walk(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1263 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1264 langp_T *lp,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1265 char_u *fword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1266 int soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1267 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1268 char_u tword[MAXWLEN]; // good word collected so far
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1269 trystate_T stack[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1270 char_u preword[MAXWLEN * 3]; // word found with proper case;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1271 // concatenation of prefix compound
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1272 // words and split word. NUL terminated
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1273 // when going deeper but not when coming
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1274 // back.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1275 char_u compflags[MAXWLEN]; // compound flags, one for each word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1276 trystate_T *sp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1277 int newscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1278 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1279 char_u byts, fbyts, *pbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1280 idx_T idxs, fidxs, *pidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1281 int depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1282 int c, c2, c3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1283 int n = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1284 int flags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1285 garray_T *gap;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1286 idx_T arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1287 int len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1288 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1289 fromto_T *ftp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1290 int fl = 0, tl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1291 int repextra = 0; // extra bytes in fword[] from REP item
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1292 slang_T *slang = lp->lp_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1293 int fword_ends;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1294 int goodword_ends;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1295 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1296 // Stores the name of the change made at each level.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1297 char_u changename[MAXWLEN][80];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1298 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1299 int breakcheckcount = 1000;
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1300 #ifdef FEAT_RELTIME
d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1301 proftime_T time_limit;
d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1302 #endif
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1303 int compound_ok;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1304
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1305 // Go through the whole case-fold tree, try changes at each node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1306 // "tword[]" contains the word collected from nodes in the tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1307 // "fword[]" the word we are trying to match with (initially the bad
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1308 // word).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1309 depth = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1310 sp = &stack[0];
20007 aadd1cae2ff5 patch 8.2.0559: clearing a struct is verbose Bram Moolenaar <Bram@vim.org> parents: 19888 diff changeset	1311 CLEAR_POINTER(sp);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1312 sp->ts_curi = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1313
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1314 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1315 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1316 // Going through the soundfold tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1317 byts = fbyts = slang->sl_sbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1318 idxs = fidxs = slang->sl_sidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1319 pbyts = NULL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1320 pidxs = NULL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1321 sp->ts_prefixdepth = PFD_NOPREFIX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1322 sp->ts_state = STATE_START;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1323 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1324 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1325 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1326 // When there are postponed prefixes we need to use these first. At
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1327 // the end of the prefix we continue in the case-fold tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1328 fbyts = slang->sl_fbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1329 fidxs = slang->sl_fidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1330 pbyts = slang->sl_pbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1331 pidxs = slang->sl_pidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1332 if (pbyts != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1333 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1334 byts = pbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1335 idxs = pidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1336 sp->ts_prefixdepth = PFD_PREFIXTREE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1337 sp->ts_state = STATE_NOPREFIX; // try without prefix first
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1338 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1339 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1340 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1341 byts = fbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1342 idxs = fidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1343 sp->ts_prefixdepth = PFD_NOPREFIX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1344 sp->ts_state = STATE_START;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1345 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1346 }
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1347 #ifdef FEAT_RELTIME
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	1348 // The loop may take an indefinite amount of time. Break out after some
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	1349 // time.
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	1350 if (spell_suggest_timeout > 0)
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	1351 profile_setlimit(spell_suggest_timeout, &time_limit);
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1352 #endif
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1353
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1354 // Loop to find all suggestions. At each round we either:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1355 // - For the current state try one operation, advance "ts_curi",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1356 // increase "depth".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1357 // - When a state is done go to the next, set "ts_state".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1358 // - When all states are tried decrease "depth".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1359 while (depth >= 0 && !got_int)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1360 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1361 sp = &stack[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1362 switch (sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1363 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1364 case STATE_START:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1365 case STATE_NOPREFIX:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1366 // Start of node: Deal with NUL bytes, which means
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1367 // tword[] may end here.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1368 arridx = sp->ts_arridx; // current node in the tree
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1369 len = byts[arridx]; // bytes in this node
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1370 arridx += sp->ts_curi; // index of current byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1371
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1372 if (sp->ts_prefixdepth == PFD_PREFIXTREE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1373 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1374 // Skip over the NUL bytes, we use them later.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1375 for (n = 0; n < len && byts[arridx + n] == 0; ++n)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1376 ;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1377 sp->ts_curi += n;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1378
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1379 // Always past NUL bytes now.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1380 n = (int)sp->ts_state;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1381 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1382 sp->ts_state = STATE_ENDNUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1383 sp->ts_save_badflags = su->su_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1384
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1385 // At end of a prefix or at start of prefixtree: check for
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1386 // following word.
27460 b7ed275ef02f patch 8.2.4258: Coverity warns for array overrun Bram Moolenaar <Bram@vim.org> parents: 27441 diff changeset	1387 if (depth < MAXWLEN - 1
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	1388 && (byts[arridx] == 0 \|\| n == (int)STATE_NOPREFIX))
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1389 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1390 // Set su->su_badflags to the caps type at this position.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1391 // Use the caps type until here for the prefix itself.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1392 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1393 n = nofold_len(fword, sp->ts_fidx, su->su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1394 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1395 n = sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1396 flags = badword_captype(su->su_badptr, su->su_badptr + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1397 su->su_badflags = badword_captype(su->su_badptr + n,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1398 su->su_badptr + su->su_badlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1399 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1400 sprintf(changename[depth], "prefix");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1401 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1402 go_deeper(stack, depth, 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1403 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1404 sp = &stack[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1405 sp->ts_prefixdepth = depth - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1406 byts = fbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1407 idxs = fidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1408 sp->ts_arridx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1409
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1410 // Move the prefix to preword[] with the right case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1411 // and make find_keepcap_word() works.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1412 tword[sp->ts_twordlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1413 make_case_word(tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1414 preword + sp->ts_prewordlen, flags);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1415 sp->ts_prewordlen = (char_u)STRLEN(preword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1416 sp->ts_splitoff = sp->ts_twordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1417 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1418 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1419 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1420
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1421 if (sp->ts_curi > len \|\| byts[arridx] != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1422 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1423 // Past bytes in node and/or past NUL bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1424 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1425 sp->ts_state = STATE_ENDNUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1426 sp->ts_save_badflags = su->su_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1427 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1428 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1429
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1430 // End of word in tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1431 ++sp->ts_curi; // eat one NUL byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1432
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1433 flags = (int)idxs[arridx];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1434
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1435 // Skip words with the NOSUGGEST flag.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1436 if (flags & WF_NOSUGGEST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1437 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1438
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1439 fword_ends = (fword[sp->ts_fidx] == NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1440 \|\| (soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1441 ? VIM_ISWHITE(fword[sp->ts_fidx])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1442 : !spell_iswordp(fword + sp->ts_fidx, curwin)));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1443 tword[sp->ts_twordlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1444
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1445 if (sp->ts_prefixdepth <= PFD_NOTSPECIAL
21106 47978b89a02e patch 8.2.1104: Coverity warnts for possible NULL pointer use Bram Moolenaar <Bram@vim.org> parents: 21087 diff changeset	1446 && (sp->ts_flags & TSF_PREFIXOK) == 0
47978b89a02e patch 8.2.1104: Coverity warnts for possible NULL pointer use Bram Moolenaar <Bram@vim.org> parents: 21087 diff changeset	1447 && pbyts != NULL)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1448 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1449 // There was a prefix before the word. Check that the prefix
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1450 // can be used with this word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1451 // Count the length of the NULs in the prefix. If there are
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1452 // none this must be the first try without a prefix.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1453 n = stack[sp->ts_prefixdepth].ts_arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1454 len = pbyts[n++];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1455 for (c = 0; c < len && pbyts[n + c] == 0; ++c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1456 ;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1457 if (c > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1458 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1459 c = valid_word_prefix(c, n, flags,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1460 tword + sp->ts_splitoff, slang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1461 if (c == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1462 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1463
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1464 // Use the WF_RARE flag for a rare prefix.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1465 if (c & WF_RAREPFX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1466 flags \|= WF_RARE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1467
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1468 // Tricky: when checking for both prefix and compounding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1469 // we run into the prefix flag first.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1470 // Remember that it's OK, so that we accept the prefix
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1471 // when arriving at a compound flag.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1472 sp->ts_flags \|= TSF_PREFIXOK;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1473 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1474 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1475
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1476 // Check NEEDCOMPOUND: can't use word without compounding. Do try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1477 // appending another compound word below.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1478 if (sp->ts_complen == sp->ts_compsplit && fword_ends
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1479 && (flags & WF_NEEDCOMP))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1480 goodword_ends = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1481 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1482 goodword_ends = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1483
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1484 p = NULL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1485 compound_ok = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1486 if (sp->ts_complen > sp->ts_compsplit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1487 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1488 if (slang->sl_nobreak)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1489 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1490 // There was a word before this word. When there was no
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1491 // change in this word (it was correct) add the first word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1492 // as a suggestion. If this word was corrected too, we
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1493 // need to check if a correct word follows.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1494 if (sp->ts_fidx - sp->ts_splitfidx
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1495 == sp->ts_twordlen - sp->ts_splitoff
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1496 && STRNCMP(fword + sp->ts_splitfidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1497 tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1498 sp->ts_fidx - sp->ts_splitfidx) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1499 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1500 preword[sp->ts_prewordlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1501 newscore = score_wordcount_adj(slang, sp->ts_score,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1502 preword + sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1503 sp->ts_prewordlen > 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1504 // Add the suggestion if the score isn't too bad.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1505 if (newscore <= su->su_maxscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1506 add_suggestion(su, &su->su_ga, preword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1507 sp->ts_splitfidx - repextra,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1508 newscore, 0, FALSE,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1509 lp->lp_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1510 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1511 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1512 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1513 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1514 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1515 // There was a compound word before this word. If this
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1516 // word does not support compounding then give up
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1517 // (splitting is tried for the word without compound
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1518 // flag).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1519 if (((unsigned)flags >> 24) == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1520 \|\| sp->ts_twordlen - sp->ts_splitoff
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1521 < slang->sl_compminlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1522 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1523 // For multi-byte chars check character length against
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1524 // COMPOUNDMIN.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1525 if (has_mbyte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1526 && slang->sl_compminlen > 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1527 && mb_charlen(tword + sp->ts_splitoff)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1528 < slang->sl_compminlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1529 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1530
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1531 compflags[sp->ts_complen] = ((unsigned)flags >> 24);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1532 compflags[sp->ts_complen + 1] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1533 vim_strncpy(preword + sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1534 tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1535 sp->ts_twordlen - sp->ts_splitoff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1536
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1537 // Verify CHECKCOMPOUNDPATTERN rules.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1538 if (match_checkcompoundpattern(preword, sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1539 &slang->sl_comppat))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1540 compound_ok = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1541
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1542 if (compound_ok)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1543 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1544 p = preword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1545 while (*skiptowhite(p) != NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1546 p = skipwhite(skiptowhite(p));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1547 if (fword_ends && !can_compound(slang, p,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1548 compflags + sp->ts_compsplit))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1549 // Compound is not allowed. But it may still be
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1550 // possible if we add another (short) word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1551 compound_ok = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1552 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1553
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1554 // Get pointer to last char of previous word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1555 p = preword + sp->ts_prewordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1556 MB_PTR_BACK(preword, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1557 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1558 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1559
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1560 // Form the word with proper case in preword.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1561 // If there is a word from a previous split, append.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1562 // For the soundfold tree don't change the case, simply append.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1563 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1564 STRCPY(preword + sp->ts_prewordlen, tword + sp->ts_splitoff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1565 else if (flags & WF_KEEPCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1566 // Must find the word in the keep-case tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1567 find_keepcap_word(slang, tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1568 preword + sp->ts_prewordlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1569 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1570 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1571 // Include badflags: If the badword is onecap or allcap
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1572 // use that for the goodword too. But if the badword is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1573 // allcap and it's only one char long use onecap.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1574 c = su->su_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1575 if ((c & WF_ALLCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1576 && su->su_badlen == (*mb_ptr2len)(su->su_badptr))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1577 c = WF_ONECAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1578 c \|= flags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1579
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1580 // When appending a compound word after a word character don't
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1581 // use Onecap.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1582 if (p != NULL && spell_iswordp_nmw(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1583 c &= ~WF_ONECAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1584 make_case_word(tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1585 preword + sp->ts_prewordlen, c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1586 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1587
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1588 if (!soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1589 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1590 // Don't use a banned word. It may appear again as a good
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1591 // word, thus remember it.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1592 if (flags & WF_BANNED)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1593 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1594 add_banned(su, preword + sp->ts_prewordlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1595 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1596 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1597 if ((sp->ts_complen == sp->ts_compsplit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1598 && WAS_BANNED(su, preword + sp->ts_prewordlen))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1599 \|\| WAS_BANNED(su, preword))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1600 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1601 if (slang->sl_compprog == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1602 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1603 // the word so far was banned but we may try compounding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1604 goodword_ends = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1605 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1606 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1607
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1608 newscore = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1609 if (!soundfold) // soundfold words don't have flags
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1610 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1611 if ((flags & WF_REGION)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1612 && (((unsigned)flags >> 16) & lp->lp_region) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1613 newscore += SCORE_REGION;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1614 if (flags & WF_RARE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1615 newscore += SCORE_RARE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1616
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1617 if (!spell_valid_case(su->su_badflags,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1618 captype(preword + sp->ts_prewordlen, NULL)))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1619 newscore += SCORE_ICASE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1620 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1621
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1622 // TODO: how about splitting in the soundfold tree?
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1623 if (fword_ends
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1624 && goodword_ends
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1625 && sp->ts_fidx >= sp->ts_fidxtry
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1626 && compound_ok)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1627 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1628 // The badword also ends: add suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1629 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1630 if (soundfold && STRCMP(preword, "smwrd") == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1631 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1632 int j;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1633
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1634 // print the stack of changes that brought us here
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1635 smsg("------ %s -------", fword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1636 for (j = 0; j < depth; ++j)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1637 smsg("%s", changename[j]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1638 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1639 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1640 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1641 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1642 // For soundfolded words we need to find the original
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1643 // words, the edit distance and then add them.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1644 add_sound_suggest(su, preword, sp->ts_score, lp);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1645 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1646 else if (sp->ts_fidx > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1647 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1648 // Give a penalty when changing non-word char to word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1649 // char, e.g., "thes," -> "these".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1650 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1651 MB_PTR_BACK(fword, p);
26098 25b93e560a7c patch 8.2.3582: reading uninitialized memory when giving spell suggestions Bram Moolenaar <Bram@vim.org> parents: 25901 diff changeset	1652 if (!spell_iswordp(p, curwin) && *preword != NUL)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1653 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1654 p = preword + STRLEN(preword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1655 MB_PTR_BACK(preword, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1656 if (spell_iswordp(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1657 newscore += SCORE_NONWORD;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1658 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1659
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1660 // Give a bonus to words seen before.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1661 score = score_wordcount_adj(slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1662 sp->ts_score + newscore,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1663 preword + sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1664 sp->ts_prewordlen > 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1665
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1666 // Add the suggestion if the score isn't too bad.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1667 if (score <= su->su_maxscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1668 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1669 add_suggestion(su, &su->su_ga, preword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1670 sp->ts_fidx - repextra,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1671 score, 0, FALSE, lp->lp_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1672
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1673 if (su->su_badflags & WF_MIXCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1674 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1675 // We really don't know if the word should be
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1676 // upper or lower case, add both.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1677 c = captype(preword, NULL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1678 if (c == 0 \|\| c == WF_ALLCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1679 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1680 make_case_word(tword + sp->ts_splitoff,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1681 preword + sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1682 c == 0 ? WF_ALLCAP : 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1683
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1684 add_suggestion(su, &su->su_ga, preword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1685 sp->ts_fidx - repextra,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1686 score + SCORE_ICASE, 0, FALSE,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1687 lp->lp_sallang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1688 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1689 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1690 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1691 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1692 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1693
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1694 // Try word split and/or compounding.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1695 if ((sp->ts_fidx >= sp->ts_fidxtry \|\| fword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1696 // Don't split halfway a character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1697 && (!has_mbyte \|\| sp->ts_tcharlen == 0))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1698 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1699 int try_compound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1700 int try_split;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1701
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1702 // If past the end of the bad word don't try a split.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1703 // Otherwise try changing the next word. E.g., find
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1704 // suggestions for "the the" where the second "the" is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1705 // different. It's done like a split.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1706 // TODO: word split for soundfold words
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1707 try_split = (sp->ts_fidx - repextra < su->su_badlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1708 && !soundfold;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1709
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1710 // Get here in several situations:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1711 // 1. The word in the tree ends:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1712 // If the word allows compounding try that. Otherwise try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1713 // a split by inserting a space. For both check that a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1714 // valid words starts at fword[sp->ts_fidx].
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1715 // For NOBREAK do like compounding to be able to check if
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1716 // the next word is valid.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1717 // 2. The badword does end, but it was due to a change (e.g.,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1718 // a swap). No need to split, but do check that the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1719 // following word is valid.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1720 // 3. The badword and the word in the tree end. It may still
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1721 // be possible to compound another (short) word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1722 try_compound = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1723 if (!soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1724 && !slang->sl_nocompoundsugs
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1725 && slang->sl_compprog != NULL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1726 && ((unsigned)flags >> 24) != 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1727 && sp->ts_twordlen - sp->ts_splitoff
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1728 >= slang->sl_compminlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1729 && (!has_mbyte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1730 \|\| slang->sl_compminlen == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1731 \|\| mb_charlen(tword + sp->ts_splitoff)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1732 >= slang->sl_compminlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1733 && (slang->sl_compsylmax < MAXWLEN
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1734 \|\| sp->ts_complen + 1 - sp->ts_compsplit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1735 < slang->sl_compmax)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1736 && (can_be_compound(sp, slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1737 compflags, ((unsigned)flags >> 24))))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1738
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1739 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1740 try_compound = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1741 compflags[sp->ts_complen] = ((unsigned)flags >> 24);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1742 compflags[sp->ts_complen + 1] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1743 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1744
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1745 // For NOBREAK we never try splitting, it won't make any word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1746 // valid.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1747 if (slang->sl_nobreak && !slang->sl_nocompoundsugs)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1748 try_compound = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1749
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1750 // If we could add a compound word, and it's also possible to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1751 // split at this point, do the split first and set
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1752 // TSF_DIDSPLIT to avoid doing it again.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1753 else if (!fword_ends
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1754 && try_compound
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1755 && (sp->ts_flags & TSF_DIDSPLIT) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1756 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1757 try_compound = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1758 sp->ts_flags \|= TSF_DIDSPLIT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1759 --sp->ts_curi; // do the same NUL again
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1760 compflags[sp->ts_complen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1761 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1762 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1763 sp->ts_flags &= ~TSF_DIDSPLIT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1764
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1765 if (try_split \|\| try_compound)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1766 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1767 if (!try_compound && (!fword_ends \|\| !goodword_ends))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1768 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1769 // If we're going to split need to check that the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1770 // words so far are valid for compounding. If there
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1771 // is only one word it must not have the NEEDCOMPOUND
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1772 // flag.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1773 if (sp->ts_complen == sp->ts_compsplit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1774 && (flags & WF_NEEDCOMP))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1775 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1776 p = preword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1777 while (*skiptowhite(p) != NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1778 p = skipwhite(skiptowhite(p));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1779 if (sp->ts_complen > sp->ts_compsplit
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1780 && !can_compound(slang, p,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1781 compflags + sp->ts_compsplit))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1782 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1783
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1784 if (slang->sl_nosplitsugs)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1785 newscore += SCORE_SPLIT_NO;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1786 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1787 newscore += SCORE_SPLIT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1788
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1789 // Give a bonus to words seen before.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1790 newscore = score_wordcount_adj(slang, newscore,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1791 preword + sp->ts_prewordlen, TRUE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1792 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1793
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1794 if (TRY_DEEPER(su, stack, depth, newscore))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1795 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1796 go_deeper(stack, depth, newscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1797 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1798 if (!try_compound && !fword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1799 sprintf(changename[depth], "%.*s-%s: split",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1800 sp->ts_twordlen, tword, fword + sp->ts_fidx);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1801 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1802 sprintf(changename[depth], "%.*s-%s: compound",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1803 sp->ts_twordlen, tword, fword + sp->ts_fidx);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1804 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1805 // Save things to be restored at STATE_SPLITUNDO.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1806 sp->ts_save_badflags = su->su_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1807 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1808 sp->ts_state = STATE_SPLITUNDO;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1809
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1810 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1811 sp = &stack[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1812
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1813 // Append a space to preword when splitting.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1814 if (!try_compound && !fword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1815 STRCAT(preword, " ");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1816 sp->ts_prewordlen = (char_u)STRLEN(preword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1817 sp->ts_splitoff = sp->ts_twordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1818 sp->ts_splitfidx = sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1819
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1820 // If the badword has a non-word character at this
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1821 // position skip it. That means replacing the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1822 // non-word character with a space. Always skip a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1823 // character when the word ends. But only when the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1824 // good word can end.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1825 if (((!try_compound && !spell_iswordp_nmw(fword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1826 + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1827 curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1828 \|\| fword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1829 && fword[sp->ts_fidx] != NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1830 && goodword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1831 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1832 int l;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1833
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	1834 l = mb_ptr2len(fword + sp->ts_fidx);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1835 if (fword_ends)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1836 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1837 // Copy the skipped character to preword.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1838 mch_memmove(preword + sp->ts_prewordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1839 fword + sp->ts_fidx, l);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1840 sp->ts_prewordlen += l;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1841 preword[sp->ts_prewordlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1842 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1843 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1844 sp->ts_score -= SCORE_SPLIT - SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1845 sp->ts_fidx += l;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1846 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1847
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1848 // When compounding include compound flag in
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1849 // compflags[] (already set above). When splitting we
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1850 // may start compounding over again.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1851 if (try_compound)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1852 ++sp->ts_complen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1853 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1854 sp->ts_compsplit = sp->ts_complen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1855 sp->ts_prefixdepth = PFD_NOPREFIX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1856
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1857 // set su->su_badflags to the caps type at this
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1858 // position
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1859 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1860 n = nofold_len(fword, sp->ts_fidx, su->su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1861 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1862 n = sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1863 su->su_badflags = badword_captype(su->su_badptr + n,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1864 su->su_badptr + su->su_badlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1865
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1866 // Restart at top of the tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1867 sp->ts_arridx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1868
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1869 // If there are postponed prefixes, try these too.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1870 if (pbyts != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1871 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1872 byts = pbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1873 idxs = pidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1874 sp->ts_prefixdepth = PFD_PREFIXTREE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1875 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1876 sp->ts_state = STATE_NOPREFIX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1877 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1878 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1879 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1880 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1881 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1882
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1883 case STATE_SPLITUNDO:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1884 // Undo the changes done for word split or compound word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1885 su->su_badflags = sp->ts_save_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1886
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1887 // Continue looking for NUL bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1888 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1889 sp->ts_state = STATE_START;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1890
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1891 // In case we went into the prefix tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1892 byts = fbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1893 idxs = fidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1894 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1895
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1896 case STATE_ENDNUL:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1897 // Past the NUL bytes in the node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1898 su->su_badflags = sp->ts_save_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1899 if (fword[sp->ts_fidx] == NUL && sp->ts_tcharlen == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1900 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1901 // The badword ends, can't use STATE_PLAIN.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1902 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1903 sp->ts_state = STATE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1904 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1905 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1906 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1907 sp->ts_state = STATE_PLAIN;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1908 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1909
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1910 case STATE_PLAIN:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1911 // Go over all possible bytes at this node, add each to tword[]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1912 // and use child node. "ts_curi" is the index.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1913 arridx = sp->ts_arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1914 if (sp->ts_curi > byts[arridx])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1915 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1916 // Done all bytes at this node, do next state. When still at
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1917 // already changed bytes skip the other tricks.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1918 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1919 if (sp->ts_fidx >= sp->ts_fidxtry)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1920 sp->ts_state = STATE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1921 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1922 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1923 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1924 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1925 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1926 arridx += sp->ts_curi++;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1927 c = byts[arridx];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1928
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1929 // Normal byte, go one level deeper. If it's not equal to the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1930 // byte in the bad word adjust the score. But don't even try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1931 // when the byte was already changed. And don't try when we
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1932 // just deleted this byte, accepting it is always cheaper than
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1933 // delete + substitute.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1934 if (c == fword[sp->ts_fidx]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1935 \|\| (sp->ts_tcharlen > 0 && sp->ts_isdiff != DIFF_NONE))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1936 newscore = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1937 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1938 newscore = SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1939 if ((newscore == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1940 \|\| (sp->ts_fidx >= sp->ts_fidxtry
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1941 && ((sp->ts_flags & TSF_DIDDEL) == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1942 \|\| c != fword[sp->ts_delidx])))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1943 && TRY_DEEPER(su, stack, depth, newscore))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1944 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1945 go_deeper(stack, depth, newscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1946 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1947 if (newscore > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1948 sprintf(changename[depth], "%.*s-%s: subst %c to %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1949 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1950 fword[sp->ts_fidx], c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1951 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1952 sprintf(changename[depth], "%.*s-%s: accept %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1953 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1954 fword[sp->ts_fidx]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1955 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1956 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1957 sp = &stack[depth];
28970 77cd4bf3ad7d patch 8.2.5007: spell suggestion may use uninitialized memory Bram Moolenaar <Bram@vim.org> parents: 28848 diff changeset	1958 if (fword[sp->ts_fidx] != NUL)
77cd4bf3ad7d patch 8.2.5007: spell suggestion may use uninitialized memory Bram Moolenaar <Bram@vim.org> parents: 28848 diff changeset	1959 ++sp->ts_fidx;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1960 tword[sp->ts_twordlen++] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1961 sp->ts_arridx = idxs[arridx];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1962 if (newscore == SCORE_SUBST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1963 sp->ts_isdiff = DIFF_YES;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1964 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1965 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1966 // Multi-byte characters are a bit complicated to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1967 // handle: They differ when any of the bytes differ
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1968 // and then their length may also differ.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1969 if (sp->ts_tcharlen == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1970 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1971 // First byte.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1972 sp->ts_tcharidx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1973 sp->ts_tcharlen = MB_BYTE2LEN(c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1974 sp->ts_fcharstart = sp->ts_fidx - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1975 sp->ts_isdiff = (newscore != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1976 ? DIFF_YES : DIFF_NONE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1977 }
29208 b8dc0a76911e patch 8.2.5123: using invalid index when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 28970 diff changeset	1978 else if (sp->ts_isdiff == DIFF_INSERT
b8dc0a76911e patch 8.2.5123: using invalid index when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 28970 diff changeset	1979 && sp->ts_fidx > 0)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1980 // When inserting trail bytes don't advance in the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1981 // bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1982 --sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1983 if (++sp->ts_tcharidx == sp->ts_tcharlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1984 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1985 // Last byte of character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1986 if (sp->ts_isdiff == DIFF_YES)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1987 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1988 // Correct ts_fidx for the byte length of the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1989 // character (we didn't check that before).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1990 sp->ts_fidx = sp->ts_fcharstart
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	1991 + mb_ptr2len(
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1992 fword + sp->ts_fcharstart);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1993 // For changing a composing character adjust
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1994 // the score from SCORE_SUBST to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1995 // SCORE_SUBCOMP.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1996 if (enc_utf8
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1997 && utf_iscomposing(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1998 utf_ptr2char(tword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	1999 + sp->ts_twordlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2000 - sp->ts_tcharlen))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2001 && utf_iscomposing(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2002 utf_ptr2char(fword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2003 + sp->ts_fcharstart)))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2004 sp->ts_score -=
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2005 SCORE_SUBST - SCORE_SUBCOMP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2006
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2007 // For a similar character adjust score from
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2008 // SCORE_SUBST to SCORE_SIMILAR.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2009 else if (!soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2010 && slang->sl_has_map
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2011 && similar_chars(slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2012 mb_ptr2char(tword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2013 + sp->ts_twordlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2014 - sp->ts_tcharlen),
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2015 mb_ptr2char(fword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2016 + sp->ts_fcharstart)))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2017 sp->ts_score -=
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2018 SCORE_SUBST - SCORE_SIMILAR;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2019 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2020 else if (sp->ts_isdiff == DIFF_INSERT
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2021 && sp->ts_twordlen > sp->ts_tcharlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2022 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2023 p = tword + sp->ts_twordlen - sp->ts_tcharlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2024 c = mb_ptr2char(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2025 if (enc_utf8 && utf_iscomposing(c))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2026 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2027 // Inserting a composing char doesn't
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2028 // count that much.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2029 sp->ts_score -= SCORE_INS - SCORE_INSCOMP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2030 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2031 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2032 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2033 // If the previous character was the same,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2034 // thus doubling a character, give a bonus
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2035 // to the score. Also for the soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2036 // tree (might seem illogical but does
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2037 // give better scores).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2038 MB_PTR_BACK(tword, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2039 if (c == mb_ptr2char(p))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2040 sp->ts_score -= SCORE_INS
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2041 - SCORE_INSDUP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2042 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2043 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2044
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2045 // Starting a new char, reset the length.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2046 sp->ts_tcharlen = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2047 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2048 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2049 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2050 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2051 // If we found a similar char adjust the score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2052 // We do this after calling go_deeper() because
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2053 // it's slow.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2054 if (newscore != 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2055 && !soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2056 && slang->sl_has_map
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2057 && similar_chars(slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2058 c, fword[sp->ts_fidx - 1]))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2059 sp->ts_score -= SCORE_SUBST - SCORE_SIMILAR;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2060 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2061 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2062 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2063 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2064
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2065 case STATE_DEL:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2066 // When past the first byte of a multi-byte char don't try
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2067 // delete/insert/swap a character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2068 if (has_mbyte && sp->ts_tcharlen > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2069 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2070 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2071 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2072 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2073 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2074 // Try skipping one character in the bad word (delete it).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2075 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2076 sp->ts_state = STATE_INS_PREP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2077 sp->ts_curi = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2078 if (soundfold && sp->ts_fidx == 0 && fword[sp->ts_fidx] == '*')
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2079 // Deleting a vowel at the start of a word counts less, see
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2080 // soundalike_score().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2081 newscore = 2 * SCORE_DEL / 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2082 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2083 newscore = SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2084 if (fword[sp->ts_fidx] != NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2085 && TRY_DEEPER(su, stack, depth, newscore))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2086 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2087 go_deeper(stack, depth, newscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2088 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2089 sprintf(changename[depth], "%.*s-%s: delete %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2090 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2091 fword[sp->ts_fidx]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2092 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2093 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2094
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2095 // Remember what character we deleted, so that we can avoid
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2096 // inserting it again.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2097 stack[depth].ts_flags \|= TSF_DIDDEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2098 stack[depth].ts_delidx = sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2099
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2100 // Advance over the character in fword[]. Give a bonus to the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2101 // score if the same character is following "nn" -> "n". It's
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2102 // a bit illogical for soundfold tree but it does give better
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2103 // results.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2104 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2105 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2106 c = mb_ptr2char(fword + sp->ts_fidx);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2107 stack[depth].ts_fidx += mb_ptr2len(fword + sp->ts_fidx);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2108 if (enc_utf8 && utf_iscomposing(c))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2109 stack[depth].ts_score -= SCORE_DEL - SCORE_DELCOMP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2110 else if (c == mb_ptr2char(fword + stack[depth].ts_fidx))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2111 stack[depth].ts_score -= SCORE_DEL - SCORE_DELDUP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2112 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2113 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2114 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2115 ++stack[depth].ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2116 if (fword[sp->ts_fidx] == fword[sp->ts_fidx + 1])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2117 stack[depth].ts_score -= SCORE_DEL - SCORE_DELDUP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2118 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2119 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2120 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2121 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2122
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2123 case STATE_INS_PREP:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2124 if (sp->ts_flags & TSF_DIDDEL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2125 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2126 // If we just deleted a byte then inserting won't make sense,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2127 // a substitute is always cheaper.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2128 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2129 sp->ts_state = STATE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2130 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2131 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2132
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2133 // skip over NUL bytes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2134 n = sp->ts_arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2135 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2136 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2137 if (sp->ts_curi > byts[n])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2138 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2139 // Only NUL bytes at this node, go to next state.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2140 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2141 sp->ts_state = STATE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2142 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2143 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2144 if (byts[n + sp->ts_curi] != NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2145 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2146 // Found a byte to insert.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2147 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2148 sp->ts_state = STATE_INS;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2149 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2150 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2151 ++sp->ts_curi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2152 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2153 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2154
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2155 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2156
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2157 case STATE_INS:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2158 // Insert one byte. Repeat this for each possible byte at this
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2159 // node.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2160 n = sp->ts_arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2161 if (sp->ts_curi > byts[n])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2162 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2163 // Done all bytes at this node, go to next state.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2164 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2165 sp->ts_state = STATE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2166 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2167 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2168
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2169 // Do one more byte at this node, but:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2170 // - Skip NUL bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2171 // - Skip the byte if it's equal to the byte in the word,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2172 // accepting that byte is always better.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2173 n += sp->ts_curi++;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2174 c = byts[n];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2175 if (soundfold && sp->ts_twordlen == 0 && c == '*')
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2176 // Inserting a vowel at the start of a word counts less,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2177 // see soundalike_score().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2178 newscore = 2 * SCORE_INS / 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2179 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2180 newscore = SCORE_INS;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2181 if (c != fword[sp->ts_fidx]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2182 && TRY_DEEPER(su, stack, depth, newscore))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2183 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2184 go_deeper(stack, depth, newscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2185 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2186 sprintf(changename[depth], "%.*s-%s: insert %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2187 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2188 c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2189 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2190 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2191 sp = &stack[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2192 tword[sp->ts_twordlen++] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2193 sp->ts_arridx = idxs[n];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2194 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2195 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2196 fl = MB_BYTE2LEN(c);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2197 if (fl > 1)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2198 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2199 // There are following bytes for the same character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2200 // We must find all bytes before trying
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2201 // delete/insert/swap/etc.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2202 sp->ts_tcharlen = fl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2203 sp->ts_tcharidx = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2204 sp->ts_isdiff = DIFF_INSERT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2205 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2206 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2207 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2208 fl = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2209 if (fl == 1)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2210 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2211 // If the previous character was the same, thus doubling a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2212 // character, give a bonus to the score. Also for
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2213 // soundfold words (illogical but does give a better
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2214 // score).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2215 if (sp->ts_twordlen >= 2
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2216 && tword[sp->ts_twordlen - 2] == c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2217 sp->ts_score -= SCORE_INS - SCORE_INSDUP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2218 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2219 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2220 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2221
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2222 case STATE_SWAP:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2223 // Swap two bytes in the bad word: "12" -> "21".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2224 // We change "fword" here, it's changed back afterwards at
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2225 // STATE_UNSWAP.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2226 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2227 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2228 if (c == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2229 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2230 // End of word, can't swap or replace.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2231 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2232 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2233 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2234 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2235
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2236 // Don't swap if the first character is not a word character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2237 // SWAP3 etc. also don't make sense then.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2238 if (!soundfold && !spell_iswordp(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2239 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2240 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2241 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2242 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2243 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2244
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2245 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2246 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2247 n = MB_CPTR2LEN(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2248 c = mb_ptr2char(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2249 if (p[n] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2250 c2 = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2251 else if (!soundfold && !spell_iswordp(p + n, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2252 c2 = c; // don't swap non-word char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2253 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2254 c2 = mb_ptr2char(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2255 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2256 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2257 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2258 if (p[1] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2259 c2 = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2260 else if (!soundfold && !spell_iswordp(p + 1, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2261 c2 = c; // don't swap non-word char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2262 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2263 c2 = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2264 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2265
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2266 // When the second character is NUL we can't swap.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2267 if (c2 == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2268 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2269 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2270 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2271 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2272 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2273
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2274 // When characters are identical, swap won't do anything.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2275 // Also get here if the second char is not a word character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2276 if (c == c2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2277 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2278 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2279 sp->ts_state = STATE_SWAP3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2280 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2281 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2282 if (c2 != NUL && TRY_DEEPER(su, stack, depth, SCORE_SWAP))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2283 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2284 go_deeper(stack, depth, SCORE_SWAP);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2285 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2286 sprintf(changename[depth], "%.*s-%s: swap %c and %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2287 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2288 c, c2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2289 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2290 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2291 sp->ts_state = STATE_UNSWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2292 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2293 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2294 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2295 fl = mb_char2len(c2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2296 mch_memmove(p, p + n, fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2297 mb_char2bytes(c, p + fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2298 stack[depth].ts_fidxtry = sp->ts_fidx + n + fl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2299 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2300 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2301 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2302 p[0] = c2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2303 p[1] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2304 stack[depth].ts_fidxtry = sp->ts_fidx + 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2305 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2306 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2307 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2308 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2309 // If this swap doesn't work then SWAP3 won't either.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2310 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2311 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2312 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2313 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2314
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2315 case STATE_UNSWAP:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2316 // Undo the STATE_SWAP swap: "21" -> "12".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2317 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2318 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2319 {
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2320 n = mb_ptr2len(p);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2321 c = mb_ptr2char(p + n);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2322 mch_memmove(p + mb_ptr2len(p + n), p, n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2323 mb_char2bytes(c, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2324 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2325 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2326 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2327 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2328 *p = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2329 p[1] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2330 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2331 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2332
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2333 case STATE_SWAP3:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2334 // Swap two bytes, skipping one: "123" -> "321". We change
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2335 // "fword" here, it's changed back afterwards at STATE_UNSWAP3.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2336 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2337 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2338 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2339 n = MB_CPTR2LEN(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2340 c = mb_ptr2char(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2341 fl = MB_CPTR2LEN(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2342 c2 = mb_ptr2char(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2343 if (!soundfold && !spell_iswordp(p + n + fl, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2344 c3 = c; // don't swap non-word char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2345 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2346 c3 = mb_ptr2char(p + n + fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2347 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2348 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2349 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2350 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2351 c2 = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2352 if (!soundfold && !spell_iswordp(p + 2, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2353 c3 = c; // don't swap non-word char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2354 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2355 c3 = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2356 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2357
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2358 // When characters are identical: "121" then SWAP3 result is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2359 // identical, ROT3L result is same as SWAP: "211", ROT3L result is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2360 // same as SWAP on next char: "112". Thus skip all swapping.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2361 // Also skip when c3 is NUL.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2362 // Also get here when the third character is not a word character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2363 // Second character may any char: "a.b" -> "b.a"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2364 if (c == c3 \|\| c3 == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2365 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2366 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2367 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2368 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2369 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2370 if (TRY_DEEPER(su, stack, depth, SCORE_SWAP3))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2371 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2372 go_deeper(stack, depth, SCORE_SWAP3);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2373 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2374 sprintf(changename[depth], "%.*s-%s: swap3 %c and %c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2375 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2376 c, c3);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2377 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2378 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2379 sp->ts_state = STATE_UNSWAP3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2380 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2381 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2382 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2383 tl = mb_char2len(c3);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2384 mch_memmove(p, p + n + fl, tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2385 mb_char2bytes(c2, p + tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2386 mb_char2bytes(c, p + fl + tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2387 stack[depth].ts_fidxtry = sp->ts_fidx + n + fl + tl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2388 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2389 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2390 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2391 p[0] = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2392 p[2] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2393 stack[depth].ts_fidxtry = sp->ts_fidx + 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2394 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2395 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2396 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2397 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2398 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2399 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2400 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2401 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2402
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2403 case STATE_UNSWAP3:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2404 // Undo STATE_SWAP3: "321" -> "123"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2405 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2406 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2407 {
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2408 n = mb_ptr2len(p);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2409 c2 = mb_ptr2char(p + n);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2410 fl = mb_ptr2len(p + n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2411 c = mb_ptr2char(p + n + fl);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2412 tl = mb_ptr2len(p + n + fl);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2413 mch_memmove(p + fl + tl, p, n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2414 mb_char2bytes(c, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2415 mb_char2bytes(c2, p + tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2416 p = p + tl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2417 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2418 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2419 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2420 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2421 *p = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2422 p[2] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2423 ++p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2424 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2425
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2426 if (!soundfold && !spell_iswordp(p, curwin))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2427 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2428 // Middle char is not a word char, skip the rotate. First and
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2429 // third char were already checked at swap and swap3.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2430 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2431 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2432 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2433 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2434
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2435 // Rotate three characters left: "123" -> "231". We change
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2436 // "fword" here, it's changed back afterwards at STATE_UNROT3L.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2437 if (TRY_DEEPER(su, stack, depth, SCORE_SWAP3))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2438 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2439 go_deeper(stack, depth, SCORE_SWAP3);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2440 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2441 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2442 sprintf(changename[depth], "%.*s-%s: rotate left %c%c%c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2443 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2444 p[0], p[1], p[2]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2445 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2446 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2447 sp->ts_state = STATE_UNROT3L;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2448 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2449 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2450 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2451 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2452 n = MB_CPTR2LEN(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2453 c = mb_ptr2char(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2454 fl = MB_CPTR2LEN(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2455 fl += MB_CPTR2LEN(p + n + fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2456 mch_memmove(p, p + n, fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2457 mb_char2bytes(c, p + fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2458 stack[depth].ts_fidxtry = sp->ts_fidx + n + fl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2459 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2460 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2461 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2462 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2463 *p = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2464 p[1] = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2465 p[2] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2466 stack[depth].ts_fidxtry = sp->ts_fidx + 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2467 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2468 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2469 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2470 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2471 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2472 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2473 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2474 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2475
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2476 case STATE_UNROT3L:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2477 // Undo ROT3L: "231" -> "123"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2478 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2479 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2480 {
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2481 n = mb_ptr2len(p);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2482 n += mb_ptr2len(p + n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2483 c = mb_ptr2char(p + n);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2484 tl = mb_ptr2len(p + n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2485 mch_memmove(p + tl, p, n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2486 mb_char2bytes(c, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2487 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2488 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2489 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2490 c = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2491 p[2] = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2492 p[1] = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2493 *p = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2494 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2495
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2496 // Rotate three bytes right: "123" -> "312". We change "fword"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2497 // here, it's changed back afterwards at STATE_UNROT3R.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2498 if (TRY_DEEPER(su, stack, depth, SCORE_SWAP3))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2499 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2500 go_deeper(stack, depth, SCORE_SWAP3);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2501 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2502 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2503 sprintf(changename[depth], "%.*s-%s: rotate right %c%c%c",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2504 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2505 p[0], p[1], p[2]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2506 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2507 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2508 sp->ts_state = STATE_UNROT3R;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2509 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2510 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2511 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2512 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2513 n = MB_CPTR2LEN(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2514 n += MB_CPTR2LEN(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2515 c = mb_ptr2char(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2516 tl = MB_CPTR2LEN(p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2517 mch_memmove(p + tl, p, n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2518 mb_char2bytes(c, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2519 stack[depth].ts_fidxtry = sp->ts_fidx + n + tl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2520 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2521 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2522 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2523 c = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2524 p[2] = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2525 p[1] = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2526 *p = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2527 stack[depth].ts_fidxtry = sp->ts_fidx + 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2528 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2529 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2530 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2531 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2532 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2533 sp->ts_state = STATE_REP_INI;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2534 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2535 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2536
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2537 case STATE_UNROT3R:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2538 // Undo ROT3R: "312" -> "123"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2539 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2540 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2541 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2542 c = mb_ptr2char(p);
18251 c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2543 tl = mb_ptr2len(p);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2544 n = mb_ptr2len(p + tl);
c8a53c0daeed patch 8.1.2120: some MB_ macros are more complicated than necessary Bram Moolenaar <Bram@vim.org> parents: 18172 diff changeset	2545 n += mb_ptr2len(p + tl + n);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2546 mch_memmove(p, p + tl, n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2547 mb_char2bytes(c, p + n);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2548 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2549 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2550 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2551 c = *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2552 *p = p[1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2553 p[1] = p[2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2554 p[2] = c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2555 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2556 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2557
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2558 case STATE_REP_INI:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2559 // Check if matching with REP items from the .aff file would work.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2560 // Quickly skip if:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2561 // - there are no REP items and we are not in the soundfold trie
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2562 // - the score is going to be too high anyway
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2563 // - already applied a REP item or swapped here
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2564 if ((lp->lp_replang == NULL && !soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2565 \|\| sp->ts_score + SCORE_REP >= su->su_maxscore
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2566 \|\| sp->ts_fidx < sp->ts_fidxtry)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2567 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2568 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2569 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2570 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2571 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2572
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2573 // Use the first byte to quickly find the first entry that may
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2574 // match. If the index is -1 there is none.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2575 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2576 sp->ts_curi = slang->sl_repsal_first[fword[sp->ts_fidx]];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2577 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2578 sp->ts_curi = lp->lp_replang->sl_rep_first[fword[sp->ts_fidx]];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2579
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2580 if (sp->ts_curi < 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2581 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2582 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2583 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2584 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2585 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2586
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2587 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2588 sp->ts_state = STATE_REP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2589 // FALLTHROUGH
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2590
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2591 case STATE_REP:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2592 // Try matching with REP items from the .aff file. For each match
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2593 // replace the characters and check if the resulting word is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2594 // valid.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2595 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2596
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2597 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2598 gap = &slang->sl_repsal;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2599 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2600 gap = &lp->lp_replang->sl_rep;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2601 while (sp->ts_curi < gap->ga_len)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2602 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2603 ftp = (fromto_T *)gap->ga_data + sp->ts_curi++;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2604 if (ftp->ft_from != p)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2605 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2606 // past possible matching entries
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2607 sp->ts_curi = gap->ga_len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2608 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2609 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2610 if (STRNCMP(ftp->ft_from, p, STRLEN(ftp->ft_from)) == 0
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2611 && TRY_DEEPER(su, stack, depth, SCORE_REP))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2612 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2613 go_deeper(stack, depth, SCORE_REP);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2614 #ifdef DEBUG_TRIEWALK
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2615 sprintf(changename[depth], "%.*s-%s: replace %s with %s",
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2616 sp->ts_twordlen, tword, fword + sp->ts_fidx,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2617 ftp->ft_from, ftp->ft_to);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2618 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2619 // Need to undo this afterwards.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2620 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2621 sp->ts_state = STATE_REP_UNDO;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2622
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2623 // Change the "from" to the "to" string.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2624 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2625 fl = (int)STRLEN(ftp->ft_from);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2626 tl = (int)STRLEN(ftp->ft_to);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2627 if (fl != tl)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2628 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2629 STRMOVE(p + tl, p + fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2630 repextra += tl - fl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2631 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2632 mch_memmove(p, ftp->ft_to, tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2633 stack[depth].ts_fidxtry = sp->ts_fidx + tl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2634 stack[depth].ts_tcharlen = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2635 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2636 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2637 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2638
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2639 if (sp->ts_curi >= gap->ga_len && sp->ts_state == STATE_REP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2640 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2641 // No (more) matches.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2642 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2643 sp->ts_state = STATE_FINAL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2644 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2645
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2646 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2647
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2648 case STATE_REP_UNDO:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2649 // Undo a REP replacement and continue with the next one.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2650 if (soundfold)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2651 gap = &slang->sl_repsal;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2652 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2653 gap = &lp->lp_replang->sl_rep;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2654 ftp = (fromto_T *)gap->ga_data + sp->ts_curi - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2655 fl = (int)STRLEN(ftp->ft_from);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2656 tl = (int)STRLEN(ftp->ft_to);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2657 p = fword + sp->ts_fidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2658 if (fl != tl)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2659 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2660 STRMOVE(p + fl, p + tl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2661 repextra -= tl - fl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2662 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2663 mch_memmove(p, ftp->ft_from, fl);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2664 PROF_STORE(sp->ts_state)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2665 sp->ts_state = STATE_REP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2666 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2667
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2668 default:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2669 // Did all possible states at this level, go up one level.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2670 --depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2671
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2672 if (depth >= 0 && stack[depth].ts_prefixdepth == PFD_PREFIXTREE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2673 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2674 // Continue in or go back to the prefix tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2675 byts = pbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2676 idxs = pidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2677 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2678
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2679 // Don't check for CTRL-C too often, it takes time.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2680 if (--breakcheckcount == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2681 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2682 ui_breakcheck();
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2683 breakcheckcount = 1000;
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	2684 #ifdef FEAT_RELTIME
27441 674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	2685 if (spell_suggest_timeout > 0
674240fcf6de patch 8.2.4249: the timeout limit for spell suggestions is always 5000 Bram Moolenaar <Bram@vim.org> parents: 27438 diff changeset	2686 && profile_passed_limit(&time_limit))
27438 d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	2687 got_int = TRUE;
d0096a7f8d96 patch 8.2.4247: stack corruption when looking for spell suggestions Bram Moolenaar <Bram@vim.org> parents: 27028 diff changeset	2688 #endif
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2689 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2690 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2691 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2692 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2693
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2694
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2695 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2696 * Go one level deeper in the tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2697 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2698 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2699 go_deeper(trystate_T *stack, int depth, int score_add)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2700 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2701 stack[depth + 1] = stack[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2702 stack[depth + 1].ts_state = STATE_START;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2703 stack[depth + 1].ts_score = stack[depth].ts_score + score_add;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2704 stack[depth + 1].ts_curi = 1; // start just after length byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2705 stack[depth + 1].ts_flags = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2706 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2707
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2708 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2709 * "fword" is a good word with case folded. Find the matching keep-case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2710 * words and put it in "kword".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2711 * Theoretically there could be several keep-case words that result in the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2712 * same case-folded word, but we only find one...
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2713 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2714 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2715 find_keepcap_word(slang_T slang, char_u fword, char_u *kword)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2716 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2717 char_u uword[MAXWLEN]; // "fword" in upper-case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2718 int depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2719 idx_T tryidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2720
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2721 // The following arrays are used at each depth in the tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2722 idx_T arridx[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2723 int round[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2724 int fwordidx[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2725 int uwordidx[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2726 int kwordlen[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2727
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2728 int flen, ulen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2729 int l;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2730 int len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2731 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2732 idx_T lo, hi, m;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2733 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2734 char_u *byts = slang->sl_kbyts; // array with bytes of the words
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2735 idx_T *idxs = slang->sl_kidxs; // array with indexes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2736
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2737 if (byts == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2738 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2739 // array is empty: "cannot happen"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2740 *kword = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2741 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2742 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2743
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2744 // Make an all-cap version of "fword".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2745 allcap_copy(fword, uword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2746
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2747 // Each character needs to be tried both case-folded and upper-case.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2748 // All this gets very complicated if we keep in mind that changing case
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2749 // may change the byte length of a multi-byte character...
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2750 depth = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2751 arridx[0] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2752 round[0] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2753 fwordidx[0] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2754 uwordidx[0] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2755 kwordlen[0] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2756 while (depth >= 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2757 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2758 if (fword[fwordidx[depth]] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2759 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2760 // We are at the end of "fword". If the tree allows a word to end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2761 // here we have found a match.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2762 if (byts[arridx[depth] + 1] == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2763 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2764 kword[kwordlen[depth]] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2765 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2766 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2767
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2768 // kword is getting too long, continue one level up
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2769 --depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2770 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2771 else if (++round[depth] > 2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2772 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2773 // tried both fold-case and upper-case character, continue one
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2774 // level up
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2775 --depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2776 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2777 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2778 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2779 // round[depth] == 1: Try using the folded-case character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2780 // round[depth] == 2: Try using the upper-case character.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2781 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2782 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2783 flen = MB_CPTR2LEN(fword + fwordidx[depth]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2784 ulen = MB_CPTR2LEN(uword + uwordidx[depth]);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2785 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2786 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2787 ulen = flen = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2788 if (round[depth] == 1)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2789 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2790 p = fword + fwordidx[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2791 l = flen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2792 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2793 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2794 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2795 p = uword + uwordidx[depth];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2796 l = ulen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2797 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2798
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2799 for (tryidx = arridx[depth]; l > 0; --l)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2800 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2801 // Perform a binary search in the list of accepted bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2802 len = byts[tryidx++];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2803 c = *p++;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2804 lo = tryidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2805 hi = tryidx + len - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2806 while (lo < hi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2807 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2808 m = (lo + hi) / 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2809 if (byts[m] > c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2810 hi = m - 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2811 else if (byts[m] < c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2812 lo = m + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2813 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2814 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2815 lo = hi = m;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2816 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2817 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2818 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2819
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2820 // Stop if there is no matching byte.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2821 if (hi < lo \|\| byts[lo] != c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2822 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2823
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2824 // Continue at the child (if there is one).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2825 tryidx = idxs[lo];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2826 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2827
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2828 if (l == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2829 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2830 // Found the matching char. Copy it to "kword" and go a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2831 // level deeper.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2832 if (round[depth] == 1)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2833 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2834 STRNCPY(kword + kwordlen[depth], fword + fwordidx[depth],
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2835 flen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2836 kwordlen[depth + 1] = kwordlen[depth] + flen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2837 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2838 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2839 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2840 STRNCPY(kword + kwordlen[depth], uword + uwordidx[depth],
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2841 ulen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2842 kwordlen[depth + 1] = kwordlen[depth] + ulen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2843 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2844 fwordidx[depth + 1] = fwordidx[depth] + flen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2845 uwordidx[depth + 1] = uwordidx[depth] + ulen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2846
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2847 ++depth;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2848 arridx[depth] = tryidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2849 round[depth] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2850 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2851 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2852 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2853
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2854 // Didn't find it: "cannot happen".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2855 *kword = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2856 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2857
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2858 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2859 * Compute the sound-a-like score for suggestions in su->su_ga and add them to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2860 * su->su_sga.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2861 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2862 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2863 score_comp_sal(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2864 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2865 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2866 char_u badsound[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2867 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2868 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2869 suggest_T *sstp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2870 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2871 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2872
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2873 if (ga_grow(&su->su_sga, su->su_ga.ga_len) == FAIL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2874 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2875
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2876 // Use the sound-folding of the first language that supports it.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2877 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2878 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2879 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2880 if (lp->lp_slang->sl_sal.ga_len > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2881 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2882 // soundfold the bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2883 spell_soundfold(lp->lp_slang, su->su_fbadword, TRUE, badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2884
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2885 for (i = 0; i < su->su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2886 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2887 stp = &SUG(su->su_ga, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2888
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2889 // Case-fold the suggested word, sound-fold it and compute the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2890 // sound-a-like score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2891 score = stp_sal_score(stp, su, lp->lp_slang, badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2892 if (score < SCORE_MAXMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2893 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2894 // Add the suggestion.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2895 sstp = &SUG(su->su_sga, su->su_sga.ga_len);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2896 sstp->st_word = vim_strsave(stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2897 if (sstp->st_word != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2898 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2899 sstp->st_wordlen = stp->st_wordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2900 sstp->st_score = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2901 sstp->st_altscore = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2902 sstp->st_orglen = stp->st_orglen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2903 ++su->su_sga.ga_len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2904 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2905 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2906 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2907 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2908 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2909 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2910 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2911
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2912 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2913 * Combine the list of suggestions in su->su_ga and su->su_sga.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2914 * They are entwined.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2915 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2916 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2917 score_combine(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2918 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2919 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2920 int j;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2921 garray_T ga;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2922 garray_T *gap;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2923 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2924 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2925 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2926 char_u badsound[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2927 int round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2928 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2929 slang_T *slang = NULL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2930
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2931 // Add the alternate score to su_ga.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2932 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2933 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2934 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2935 if (lp->lp_slang->sl_sal.ga_len > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2936 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2937 // soundfold the bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2938 slang = lp->lp_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2939 spell_soundfold(slang, su->su_fbadword, TRUE, badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2940
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2941 for (i = 0; i < su->su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2942 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2943 stp = &SUG(su->su_ga, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2944 stp->st_altscore = stp_sal_score(stp, su, slang, badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2945 if (stp->st_altscore == SCORE_MAXMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2946 stp->st_score = (stp->st_score * 3 + SCORE_BIG) / 4;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2947 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2948 stp->st_score = (stp->st_score * 3
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2949 + stp->st_altscore) / 4;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2950 stp->st_salscore = FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2951 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2952 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2953 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2954 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2955
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2956 if (slang == NULL) // Using "double" without sound folding.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2957 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2958 (void)cleanup_suggestions(&su->su_ga, su->su_maxscore,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2959 su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2960 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2961 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2962
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2963 // Add the alternate score to su_sga.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2964 for (i = 0; i < su->su_sga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2965 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2966 stp = &SUG(su->su_sga, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2967 stp->st_altscore = spell_edit_score(slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2968 su->su_badword, stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2969 if (stp->st_score == SCORE_MAXMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2970 stp->st_score = (SCORE_BIG * 7 + stp->st_altscore) / 8;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2971 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2972 stp->st_score = (stp->st_score * 7 + stp->st_altscore) / 8;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2973 stp->st_salscore = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2974 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2975
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2976 // Remove bad suggestions, sort the suggestions and truncate at "maxcount"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2977 // for both lists.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2978 check_suggestions(su, &su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2979 (void)cleanup_suggestions(&su->su_ga, su->su_maxscore, su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2980 check_suggestions(su, &su->su_sga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2981 (void)cleanup_suggestions(&su->su_sga, su->su_maxscore, su->su_maxcount);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2982
27028 c9474ae175f4 patch 8.2.4043: using int for second argument of ga_init2() Bram Moolenaar <Bram@vim.org> parents: 26877 diff changeset	2983 ga_init2(&ga, sizeof(suginfo_T), 1);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2984 if (ga_grow(&ga, su->su_ga.ga_len + su->su_sga.ga_len) == FAIL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2985 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2986
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2987 stp = &SUG(ga, 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2988 for (i = 0; i < su->su_ga.ga_len \|\| i < su->su_sga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2989 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2990 // round 1: get a suggestion from su_ga
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2991 // round 2: get a suggestion from su_sga
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2992 for (round = 1; round <= 2; ++round)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2993 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2994 gap = round == 1 ? &su->su_ga : &su->su_sga;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2995 if (i < gap->ga_len)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2996 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2997 // Don't add a word if it's already there.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2998 p = SUG(*gap, i).st_word;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	2999 for (j = 0; j < ga.ga_len; ++j)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3000 if (STRCMP(stp[j].st_word, p) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3001 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3002 if (j == ga.ga_len)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3003 stp[ga.ga_len++] = SUG(*gap, i);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3004 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3005 vim_free(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3006 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3007 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3008 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3009
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3010 ga_clear(&su->su_ga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3011 ga_clear(&su->su_sga);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3012
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3013 // Truncate the list to the number of suggestions that will be displayed.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3014 if (ga.ga_len > su->su_maxcount)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3015 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3016 for (i = su->su_maxcount; i < ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3017 vim_free(stp[i].st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3018 ga.ga_len = su->su_maxcount;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3019 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3020
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3021 su->su_ga = ga;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3022 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3023
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3024 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3025 * For the goodword in "stp" compute the soundalike score compared to the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3026 * badword.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3027 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3028 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3029 stp_sal_score(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3030 suggest_T *stp,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3031 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3032 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3033 char_u *badsound) // sound-folded badword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3034 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3035 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3036 char_u *pbad;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3037 char_u *pgood;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3038 char_u badsound2[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3039 char_u fword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3040 char_u goodsound[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3041 char_u goodword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3042 int lendiff;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3043
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3044 lendiff = (int)(su->su_badlen - stp->st_orglen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3045 if (lendiff >= 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3046 pbad = badsound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3047 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3048 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3049 // soundfold the bad word with more characters following
24872 59cfa23bd9eb patch 8.2.2974: Greek spell checking uses wrong case folding Bram Moolenaar <Bram@vim.org> parents: 23675 diff changeset	3050 (void)spell_casefold(curwin,
59cfa23bd9eb patch 8.2.2974: Greek spell checking uses wrong case folding Bram Moolenaar <Bram@vim.org> parents: 23675 diff changeset	3051 su->su_badptr, stp->st_orglen, fword, MAXWLEN);
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3052
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3053 // When joining two words the sound often changes a lot. E.g., "t he"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3054 // sounds like "t h" while "the" sounds like "@". Avoid that by
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3055 // removing the space. Don't do it when the good word also contains a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3056 // space.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3057 if (VIM_ISWHITE(su->su_badptr[su->su_badlen])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3058 && *skiptowhite(stp->st_word) == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3059 for (p = fword; *(p = skiptowhite(p)) != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3060 STRMOVE(p, p + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3061
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3062 spell_soundfold(slang, fword, TRUE, badsound2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3063 pbad = badsound2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3064 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3065
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3066 if (lendiff > 0 && stp->st_wordlen + lendiff < MAXWLEN)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3067 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3068 // Add part of the bad word to the good word, so that we soundfold
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3069 // what replaces the bad word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3070 STRCPY(goodword, stp->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3071 vim_strncpy(goodword + stp->st_wordlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3072 su->su_badptr + su->su_badlen - lendiff, lendiff);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3073 pgood = goodword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3074 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3075 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3076 pgood = stp->st_word;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3077
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3078 // Sound-fold the word and compute the score for the difference.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3079 spell_soundfold(slang, pgood, FALSE, goodsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3080
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3081 return soundalike_score(goodsound, pbad);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3082 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3083
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3084 // structure used to store soundfolded words that add_sound_suggest() has
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3085 // handled already.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3086 typedef struct
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3087 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3088 short sft_score; // lowest score used
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3089 char_u sft_word[1]; // soundfolded word, actually longer
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3090 } sftword_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3091
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3092 static sftword_T dumsft;
27752 c1d1639b52dd patch 8.2.4402: missing parenthesis may cause unexpected problems Bram Moolenaar <Bram@vim.org> parents: 27460 diff changeset	3093 #define HIKEY2SFT(p) ((sftword_T )((p) - (dumsft.sft_word - (char_u )&dumsft)))
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3094 #define HI2SFT(hi) HIKEY2SFT((hi)->hi_key)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3095
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3096 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3097 * Prepare for calling suggest_try_soundalike().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3098 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3099 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3100 suggest_try_soundalike_prep(void)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3101 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3102 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3103 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3104 slang_T *slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3105
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3106 // Do this for all languages that support sound folding and for which a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3107 // .sug file has been loaded.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3108 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3109 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3110 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3111 slang = lp->lp_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3112 if (slang->sl_sal.ga_len > 0 && slang->sl_sbyts != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3113 // prepare the hashtable used by add_sound_suggest()
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3114 hash_init(&slang->sl_sounddone);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3115 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3116 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3117
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3118 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3119 * Find suggestions by comparing the word in a sound-a-like form.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3120 * Note: This doesn't support postponed prefixes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3121 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3122 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3123 suggest_try_soundalike(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3124 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3125 char_u salword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3126 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3127 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3128 slang_T *slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3129
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3130 // Do this for all languages that support sound folding and for which a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3131 // .sug file has been loaded.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3132 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3133 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3134 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3135 slang = lp->lp_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3136 if (slang->sl_sal.ga_len > 0 && slang->sl_sbyts != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3137 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3138 // soundfold the bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3139 spell_soundfold(slang, su->su_fbadword, TRUE, salword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3140
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3141 // try all kinds of inserts/deletes/swaps/etc.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3142 // TODO: also soundfold the next words, so that we can try joining
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3143 // and splitting
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3144 #ifdef SUGGEST_PROFILE
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28109 diff changeset	3145 prof_init();
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3146 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3147 suggest_trie_walk(su, lp, salword, TRUE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3148 #ifdef SUGGEST_PROFILE
28809 d0241e74bfdb patch 8.2.4928: various white space and cosmetic mistakes Bram Moolenaar <Bram@vim.org> parents: 28109 diff changeset	3149 prof_report("soundalike");
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3150 #endif
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3151 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3152 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3153 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3154
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3155 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3156 * Finish up after calling suggest_try_soundalike().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3157 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3158 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3159 suggest_try_soundalike_finish(void)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3160 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3161 langp_T *lp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3162 int lpi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3163 slang_T *slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3164 int todo;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3165 hashitem_T *hi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3166
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3167 // Do this for all languages that support sound folding and for which a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3168 // .sug file has been loaded.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3169 for (lpi = 0; lpi < curwin->w_s->b_langp.ga_len; ++lpi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3170 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3171 lp = LANGP_ENTRY(curwin->w_s->b_langp, lpi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3172 slang = lp->lp_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3173 if (slang->sl_sal.ga_len > 0 && slang->sl_sbyts != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3174 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3175 // Free the info about handled words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3176 todo = (int)slang->sl_sounddone.ht_used;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3177 for (hi = slang->sl_sounddone.ht_array; todo > 0; ++hi)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3178 if (!HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3179 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3180 vim_free(HI2SFT(hi));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3181 --todo;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3182 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3183
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3184 // Clear the hashtable, it may also be used by another region.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3185 hash_clear(&slang->sl_sounddone);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3186 hash_init(&slang->sl_sounddone);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3187 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3188 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3189 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3190
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3191 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3192 * A match with a soundfolded word is found. Add the good word(s) that
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3193 * produce this soundfolded word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3194 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3195 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3196 add_sound_suggest(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3197 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3198 char_u *goodword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3199 int score, // soundfold score
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3200 langp_T *lp)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3201 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3202 slang_T *slang = lp->lp_slang; // language for sound folding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3203 int sfwordnr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3204 char_u *nrline;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3205 int orgnr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3206 char_u theword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3207 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3208 int wlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3209 char_u *byts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3210 idx_T *idxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3211 int n;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3212 int wordcount;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3213 int wc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3214 int goodscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3215 hash_T hash;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3216 hashitem_T *hi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3217 sftword_T *sft;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3218 int bc, gc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3219 int limit;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3220
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3221 // It's very well possible that the same soundfold word is found several
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3222 // times with different scores. Since the following is quite slow only do
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3223 // the words that have a better score than before. Use a hashtable to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3224 // remember the words that have been done.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3225 hash = hash_hash(goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3226 hi = hash_lookup(&slang->sl_sounddone, goodword, hash);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3227 if (HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3228 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3229 sft = alloc(sizeof(sftword_T) + STRLEN(goodword));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3230 if (sft != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3231 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3232 sft->sft_score = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3233 STRCPY(sft->sft_word, goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3234 hash_add_item(&slang->sl_sounddone, hi, sft->sft_word, hash);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3235 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3236 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3237 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3238 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3239 sft = HI2SFT(hi);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3240 if (score >= sft->sft_score)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3241 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3242 sft->sft_score = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3243 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3244
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3245 // Find the word nr in the soundfold tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3246 sfwordnr = soundfold_find(slang, goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3247 if (sfwordnr < 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3248 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3249 internal_error("add_sound_suggest()");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3250 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3251 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3252
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3253 // go over the list of good words that produce this soundfold word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3254 nrline = ml_get_buf(slang->sl_sugbuf, (linenr_T)(sfwordnr + 1), FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3255 orgnr = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3256 while (*nrline != NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3257 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3258 // The wordnr was stored in a minimal nr of bytes as an offset to the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3259 // previous wordnr.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3260 orgnr += bytes2offset(&nrline);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3261
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3262 byts = slang->sl_fbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3263 idxs = slang->sl_fidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3264
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3265 // Lookup the word "orgnr" one of the two tries.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3266 n = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3267 wordcount = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3268 for (wlen = 0; wlen < MAXWLEN - 3; ++wlen)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3269 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3270 i = 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3271 if (wordcount == orgnr && byts[n + 1] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3272 break; // found end of word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3273
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3274 if (byts[n + 1] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3275 ++wordcount;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3276
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3277 // skip over the NUL bytes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3278 for ( ; byts[n + i] == NUL; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3279 if (i > byts[n]) // safety check
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3280 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3281 STRCPY(theword + wlen, "BAD");
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3282 wlen += 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3283 goto badword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3284 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3285
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3286 // One of the siblings must have the word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3287 for ( ; i < byts[n]; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3288 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3289 wc = idxs[idxs[n + i]]; // nr of words under this byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3290 if (wordcount + wc > orgnr)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3291 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3292 wordcount += wc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3293 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3294
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3295 theword[wlen] = byts[n + i];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3296 n = idxs[n + i];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3297 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3298 badword:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3299 theword[wlen] = NUL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3300
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3301 // Go over the possible flags and regions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3302 for (; i <= byts[n] && byts[n + i] == NUL; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3303 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3304 char_u cword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3305 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3306 int flags = (int)idxs[n + i];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3307
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3308 // Skip words with the NOSUGGEST flag
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3309 if (flags & WF_NOSUGGEST)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3310 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3311
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3312 if (flags & WF_KEEPCAP)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3313 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3314 // Must find the word in the keep-case tree.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3315 find_keepcap_word(slang, theword, cword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3316 p = cword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3317 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3318 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3319 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3320 flags \|= su->su_badflags;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3321 if ((flags & WF_CAPMASK) != 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3322 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3323 // Need to fix case according to "flags".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3324 make_case_word(theword, cword, flags);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3325 p = cword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3326 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3327 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3328 p = theword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3329 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3330
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3331 // Add the suggestion.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3332 if (sps_flags & SPS_DOUBLE)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3333 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3334 // Add the suggestion if the score isn't too bad.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3335 if (score <= su->su_maxscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3336 add_suggestion(su, &su->su_sga, p, su->su_badlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3337 score, 0, FALSE, slang, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3338 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3339 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3340 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3341 // Add a penalty for words in another region.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3342 if ((flags & WF_REGION)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3343 && (((unsigned)flags >> 16) & lp->lp_region) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3344 goodscore = SCORE_REGION;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3345 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3346 goodscore = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3347
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3348 // Add a small penalty for changing the first letter from
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3349 // lower to upper case. Helps for "tath" -> "Kath", which is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3350 // less common than "tath" -> "path". Don't do it when the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3351 // letter is the same, that has already been counted.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3352 gc = PTR2CHAR(p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3353 if (SPELL_ISUPPER(gc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3354 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3355 bc = PTR2CHAR(su->su_badword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3356 if (!SPELL_ISUPPER(bc)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3357 && SPELL_TOFOLD(bc) != SPELL_TOFOLD(gc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3358 goodscore += SCORE_ICASE / 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3359 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3360
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3361 // Compute the score for the good word. This only does letter
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3362 // insert/delete/swap/replace. REP items are not considered,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3363 // which may make the score a bit higher.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3364 // Use a limit for the score to make it work faster. Use
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3365 // MAXSCORE(), because RESCORE() will change the score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3366 // If the limit is very high then the iterative method is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3367 // inefficient, using an array is quicker.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3368 limit = MAXSCORE(su->su_sfmaxscore - goodscore, score);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3369 if (limit > SCORE_LIMITMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3370 goodscore += spell_edit_score(slang, su->su_badword, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3371 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3372 goodscore += spell_edit_score_limit(slang, su->su_badword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3373 p, limit);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3374
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3375 // When going over the limit don't bother to do the rest.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3376 if (goodscore < SCORE_MAXMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3377 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3378 // Give a bonus to words seen before.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3379 goodscore = score_wordcount_adj(slang, goodscore, p, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3380
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3381 // Add the suggestion if the score isn't too bad.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3382 goodscore = RESCORE(goodscore, score);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3383 if (goodscore <= su->su_sfmaxscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3384 add_suggestion(su, &su->su_ga, p, su->su_badlen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3385 goodscore, score, TRUE, slang, TRUE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3386 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3387 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3388 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3389 // smsg("word %s (%d): %s (%d)", sftword, sftnr, theword, orgnr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3390 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3391 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3392
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3393 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3394 * Find word "word" in fold-case tree for "slang" and return the word number.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3395 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3396 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3397 soundfold_find(slang_T slang, char_u word)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3398 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3399 idx_T arridx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3400 int len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3401 int wlen = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3402 int c;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3403 char_u *ptr = word;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3404 char_u *byts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3405 idx_T *idxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3406 int wordnr = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3407
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3408 byts = slang->sl_sbyts;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3409 idxs = slang->sl_sidxs;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3410
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3411 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3412 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3413 // First byte is the number of possible bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3414 len = byts[arridx++];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3415
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3416 // If the first possible byte is a zero the word could end here.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3417 // If the word ends we found the word. If not skip the NUL bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3418 c = ptr[wlen];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3419 if (byts[arridx] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3420 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3421 if (c == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3422 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3423
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3424 // Skip over the zeros, there can be several.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3425 while (len > 0 && byts[arridx] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3426 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3427 ++arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3428 --len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3429 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3430 if (len == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3431 return -1; // no children, word should have ended here
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3432 ++wordnr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3433 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3434
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3435 // If the word ends we didn't find it.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3436 if (c == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3437 return -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3438
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3439 // Perform a binary search in the list of accepted bytes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3440 if (c == TAB) // <Tab> is handled like <Space>
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3441 c = ' ';
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3442 while (byts[arridx] < c)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3443 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3444 // The word count is in the first idxs[] entry of the child.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3445 wordnr += idxs[idxs[arridx]];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3446 ++arridx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3447 if (--len == 0) // end of the bytes, didn't find it
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3448 return -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3449 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3450 if (byts[arridx] != c) // didn't find the byte
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3451 return -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3452
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3453 // Continue at the child (if there is one).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3454 arridx = idxs[arridx];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3455 ++wlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3456
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3457 // One space in the good word may stand for several spaces in the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3458 // checked word.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3459 if (c == ' ')
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3460 while (ptr[wlen] == ' ' \|\| ptr[wlen] == TAB)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3461 ++wlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3462 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3463
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3464 return wordnr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3465 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3466
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3467 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3468 * Return TRUE if "c1" and "c2" are similar characters according to the MAP
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3469 * lines in the .aff file.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3470 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3471 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3472 similar_chars(slang_T *slang, int c1, int c2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3473 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3474 int m1, m2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3475 char_u buf[MB_MAXBYTES + 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3476 hashitem_T *hi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3477
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3478 if (c1 >= 256)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3479 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3480 buf[mb_char2bytes(c1, buf)] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3481 hi = hash_find(&slang->sl_map_hash, buf);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3482 if (HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3483 m1 = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3484 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3485 m1 = mb_ptr2char(hi->hi_key + STRLEN(hi->hi_key) + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3486 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3487 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3488 m1 = slang->sl_map_array[c1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3489 if (m1 == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3490 return FALSE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3491
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3492
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3493 if (c2 >= 256)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3494 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3495 buf[mb_char2bytes(c2, buf)] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3496 hi = hash_find(&slang->sl_map_hash, buf);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3497 if (HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3498 m2 = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3499 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3500 m2 = mb_ptr2char(hi->hi_key + STRLEN(hi->hi_key) + 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3501 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3502 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3503 m2 = slang->sl_map_array[c2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3504
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3505 return m1 == m2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3506 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3507
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3508 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3509 * Add a suggestion to the list of suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3510 * For a suggestion that is already in the list the lowest score is remembered.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3511 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3512 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3513 add_suggestion(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3514 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3515 garray_T *gap, // either su_ga or su_sga
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3516 char_u *goodword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3517 int badlenarg, // len of bad word replaced with "goodword"
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3518 int score,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3519 int altscore,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3520 int had_bonus, // value for st_had_bonus
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3521 slang_T *slang, // language for sound folding
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3522 int maxsf) // su_maxscore applies to soundfold score,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3523 // su_sfmaxscore to the total score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3524 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3525 int goodlen; // len of goodword changed
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3526 int badlen; // len of bad word changed
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3527 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3528 suggest_T new_sug;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3529 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3530 char_u pgood, pbad;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3531
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3532 // Minimize "badlen" for consistency. Avoids that changing "the the" to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3533 // "thee the" is added next to changing the first "the" the "thee".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3534 pgood = goodword + STRLEN(goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3535 pbad = su->su_badptr + badlenarg;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3536 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3537 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3538 goodlen = (int)(pgood - goodword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3539 badlen = (int)(pbad - su->su_badptr);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3540 if (goodlen <= 0 \|\| badlen <= 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3541 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3542 MB_PTR_BACK(goodword, pgood);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3543 MB_PTR_BACK(su->su_badptr, pbad);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3544 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3545 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3546 if (mb_ptr2char(pgood) != mb_ptr2char(pbad))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3547 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3548 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3549 else if (pgood != pbad)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3550 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3551 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3552
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3553 if (badlen == 0 && goodlen == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3554 // goodword doesn't change anything; may happen for "the the" changing
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3555 // the first "the" to itself.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3556 return;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3557
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3558 if (gap->ga_len == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3559 i = -1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3560 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3561 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3562 // Check if the word is already there. Also check the length that is
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3563 // being replaced "thes," -> "these" is a different suggestion from
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3564 // "thes" -> "these".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3565 stp = &SUG(*gap, 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3566 for (i = gap->ga_len; --i >= 0; ++stp)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3567 if (stp->st_wordlen == goodlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3568 && stp->st_orglen == badlen
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3569 && STRNCMP(stp->st_word, goodword, goodlen) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3570 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3571 // Found it. Remember the word with the lowest score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3572 if (stp->st_slang == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3573 stp->st_slang = slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3574
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3575 new_sug.st_score = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3576 new_sug.st_altscore = altscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3577 new_sug.st_had_bonus = had_bonus;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3578
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3579 if (stp->st_had_bonus != had_bonus)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3580 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3581 // Only one of the two had the soundalike score computed.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3582 // Need to do that for the other one now, otherwise the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3583 // scores can't be compared. This happens because
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3584 // suggest_try_change() doesn't compute the soundalike
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3585 // word to keep it fast, while some special methods set
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3586 // the soundalike score to zero.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3587 if (had_bonus)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3588 rescore_one(su, stp);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3589 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3590 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3591 new_sug.st_word = stp->st_word;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3592 new_sug.st_wordlen = stp->st_wordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3593 new_sug.st_slang = stp->st_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3594 new_sug.st_orglen = badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3595 rescore_one(su, &new_sug);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3596 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3597 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3598
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3599 if (stp->st_score > new_sug.st_score)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3600 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3601 stp->st_score = new_sug.st_score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3602 stp->st_altscore = new_sug.st_altscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3603 stp->st_had_bonus = new_sug.st_had_bonus;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3604 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3605 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3606 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3607 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3608
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3609 if (i < 0 && ga_grow(gap, 1) == OK)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3610 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3611 // Add a suggestion.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3612 stp = &SUG(*gap, gap->ga_len);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3613 stp->st_word = vim_strnsave(goodword, goodlen);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3614 if (stp->st_word != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3615 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3616 stp->st_wordlen = goodlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3617 stp->st_score = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3618 stp->st_altscore = altscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3619 stp->st_had_bonus = had_bonus;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3620 stp->st_orglen = badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3621 stp->st_slang = slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3622 ++gap->ga_len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3623
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3624 // If we have too many suggestions now, sort the list and keep
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3625 // the best suggestions.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3626 if (gap->ga_len > SUG_MAX_COUNT(su))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3627 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3628 if (maxsf)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3629 su->su_sfmaxscore = cleanup_suggestions(gap,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3630 su->su_sfmaxscore, SUG_CLEAN_COUNT(su));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3631 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3632 su->su_maxscore = cleanup_suggestions(gap,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3633 su->su_maxscore, SUG_CLEAN_COUNT(su));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3634 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3635 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3636 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3637 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3638
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3639 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3640 * Suggestions may in fact be flagged as errors. Esp. for banned words and
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3641 * for split words, such as "the the". Remove these from the list here.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3642 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3643 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3644 check_suggestions(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3645 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3646 garray_T *gap) // either su_ga or su_sga
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3647 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3648 suggest_T *stp;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3649 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3650 char_u longword[MAXWLEN + 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3651 int len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3652 hlf_T attr;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3653
22021 514d622473af patch 8.2.1560: using NULL pointers in some code Bram Moolenaar <Bram@vim.org> parents: 21106 diff changeset	3654 if (gap->ga_len == 0)
514d622473af patch 8.2.1560: using NULL pointers in some code Bram Moolenaar <Bram@vim.org> parents: 21106 diff changeset	3655 return;
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3656 stp = &SUG(*gap, 0);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3657 for (i = gap->ga_len - 1; i >= 0; --i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3658 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3659 // Need to append what follows to check for "the the".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3660 vim_strncpy(longword, stp[i].st_word, MAXWLEN);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3661 len = stp[i].st_wordlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3662 vim_strncpy(longword + len, su->su_badptr + stp[i].st_orglen,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3663 MAXWLEN - len);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3664 attr = HLF_COUNT;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3665 (void)spell_check(curwin, longword, &attr, NULL, FALSE);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3666 if (attr != HLF_COUNT)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3667 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3668 // Remove this entry.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3669 vim_free(stp[i].st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3670 --gap->ga_len;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3671 if (i < gap->ga_len)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3672 mch_memmove(stp + i, stp + i + 1,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3673 sizeof(suggest_T) * (gap->ga_len - i));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3674 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3675 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3676 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3677
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3678
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3679 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3680 * Add a word to be banned.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3681 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3682 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3683 add_banned(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3684 suginfo_T *su,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3685 char_u *word)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3686 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3687 char_u *s;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3688 hash_T hash;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3689 hashitem_T *hi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3690
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3691 hash = hash_hash(word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3692 hi = hash_lookup(&su->su_banned, word, hash);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3693 if (HASHITEM_EMPTY(hi))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3694 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3695 s = vim_strsave(word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3696 if (s != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3697 hash_add_item(&su->su_banned, hi, s, hash);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3698 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3699 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3700
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3701 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3702 * Recompute the score for all suggestions if sound-folding is possible. This
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3703 * is slow, thus only done for the final results.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3704 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3705 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3706 rescore_suggestions(suginfo_T *su)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3707 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3708 int i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3709
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3710 if (su->su_sallang != NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3711 for (i = 0; i < su->su_ga.ga_len; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3712 rescore_one(su, &SUG(su->su_ga, i));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3713 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3714
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3715 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3716 * Recompute the score for one suggestion if sound-folding is possible.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3717 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3718 static void
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3719 rescore_one(suginfo_T su, suggest_T stp)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3720 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3721 slang_T *slang = stp->st_slang;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3722 char_u sal_badword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3723 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3724
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3725 // Only rescore suggestions that have no sal score yet and do have a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3726 // language.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3727 if (slang != NULL && slang->sl_sal.ga_len > 0 && !stp->st_had_bonus)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3728 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3729 if (slang == su->su_sallang)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3730 p = su->su_sal_badword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3731 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3732 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3733 spell_soundfold(slang, su->su_fbadword, TRUE, sal_badword);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3734 p = sal_badword;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3735 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3736
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3737 stp->st_altscore = stp_sal_score(stp, su, slang, p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3738 if (stp->st_altscore == SCORE_MAXMAX)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3739 stp->st_altscore = SCORE_BIG;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3740 stp->st_score = RESCORE(stp->st_score, stp->st_altscore);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3741 stp->st_had_bonus = TRUE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3742 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3743 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3744
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3745 static int sug_compare(const void s1, const void s2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3746
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3747 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3748 * Function given to qsort() to sort the suggestions on st_score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3749 * First on "st_score", then "st_altscore" then alphabetically.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3750 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3751 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3752 sug_compare(const void s1, const void s2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3753 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3754 suggest_T p1 = (suggest_T )s1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3755 suggest_T p2 = (suggest_T )s2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3756 int n = p1->st_score - p2->st_score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3757
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3758 if (n == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3759 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3760 n = p1->st_altscore - p2->st_altscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3761 if (n == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3762 n = STRICMP(p1->st_word, p2->st_word);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3763 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3764 return n;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3765 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3766
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3767 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3768 * Cleanup the suggestions:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3769 * - Sort on score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3770 * - Remove words that won't be displayed.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3771 * Returns the maximum score in the list or "maxscore" unmodified.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3772 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3773 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3774 cleanup_suggestions(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3775 garray_T *gap,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3776 int maxscore,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3777 int keep) // nr of suggestions to keep
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3778 {
19661 31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3779 if (gap->ga_len > 0)
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3780 {
19661 31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3781 // Sort the list.
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3782 qsort(gap->ga_data, (size_t)gap->ga_len, sizeof(suggest_T),
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3783 sug_compare);
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3784
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3785 // Truncate the list to the number of suggestions that will be
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3786 // displayed.
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3787 if (gap->ga_len > keep)
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3788 {
22029 2d6d70a913c1 patch 8.2.1564: a few remaining errors from ubsan Bram Moolenaar <Bram@vim.org> parents: 22021 diff changeset	3789 int i;
2d6d70a913c1 patch 8.2.1564: a few remaining errors from ubsan Bram Moolenaar <Bram@vim.org> parents: 22021 diff changeset	3790 suggest_T stp = &SUG(gap, 0);
2d6d70a913c1 patch 8.2.1564: a few remaining errors from ubsan Bram Moolenaar <Bram@vim.org> parents: 22021 diff changeset	3791
19661 31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3792 for (i = keep; i < gap->ga_len; ++i)
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3793 vim_free(stp[i].st_word);
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3794 gap->ga_len = keep;
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3795 if (keep >= 1)
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3796 return stp[keep - 1].st_score;
31d303c0c464 patch 8.2.0387: error for possible NULL argument to qsort() Bram Moolenaar <Bram@vim.org> parents: 18960 diff changeset	3797 }
18172 6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3798 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3799 return maxscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3800 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3801
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3802 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3803 * Compute a score for two sound-a-like words.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3804 * This permits up to two inserts/deletes/swaps/etc. to keep things fast.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3805 * Instead of a generic loop we write out the code. That keeps it fast by
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3806 * avoiding checks that will not be possible.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3807 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3808 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3809 soundalike_score(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3810 char_u *goodstart, // sound-folded good word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3811 char_u *badstart) // sound-folded bad word
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3812 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3813 char_u *goodsound = goodstart;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3814 char_u *badsound = badstart;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3815 int goodlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3816 int badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3817 int n;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3818 char_u pl, ps;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3819 char_u pl2, ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3820 int score = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3821
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3822 // Adding/inserting "*" at the start (word starts with vowel) shouldn't be
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3823 // counted so much, vowels halfway the word aren't counted at all.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3824 if ((badsound == '' \|\| goodsound == '') && badsound != goodsound)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3825 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3826 if ((badsound[0] == NUL && goodsound[1] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3827 \|\| (goodsound[0] == NUL && badsound[1] == NUL))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3828 // changing word with vowel to word without a sound
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3829 return SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3830 if (badsound[0] == NUL \|\| goodsound[0] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3831 // more than two changes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3832 return SCORE_MAXMAX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3833
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3834 if (badsound[1] == goodsound[1]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3835 \|\| (badsound[1] != NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3836 && goodsound[1] != NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3837 && badsound[2] == goodsound[2]))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3838 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3839 // handle like a substitute
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3840 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3841 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3842 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3843 score = 2 * SCORE_DEL / 3;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3844 if (badsound == '')
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3845 ++badsound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3846 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3847 ++goodsound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3848 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3849 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3850
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3851 goodlen = (int)STRLEN(goodsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3852 badlen = (int)STRLEN(badsound);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3853
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3854 // Return quickly if the lengths are too different to be fixed by two
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3855 // changes.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3856 n = goodlen - badlen;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3857 if (n < -2 \|\| n > 2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3858 return SCORE_MAXMAX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3859
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3860 if (n > 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3861 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3862 pl = goodsound; // goodsound is longest
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3863 ps = badsound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3864 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3865 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3866 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3867 pl = badsound; // badsound is longest
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3868 ps = goodsound;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3869 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3870
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3871 // Skip over the identical part.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3872 while (pl == ps && *pl != NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3873 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3874 ++pl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3875 ++ps;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3876 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3877
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3878 switch (n)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3879 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3880 case -2:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3881 case 2:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3882 // Must delete two characters from "pl".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3883 ++pl; // first delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3884 while (pl == ps)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3885 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3886 ++pl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3887 ++ps;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3888 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3889 // strings must be equal after second delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3890 if (STRCMP(pl + 1, ps) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3891 return score + SCORE_DEL * 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3892
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3893 // Failed to compare.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3894 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3895
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3896 case -1:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3897 case 1:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3898 // Minimal one delete from "pl" required.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3899
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3900 // 1: delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3901 pl2 = pl + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3902 ps2 = ps;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3903 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3904 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3905 if (*pl2 == NUL) // reached the end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3906 return score + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3907 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3908 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3909 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3910
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3911 // 2: delete then swap, then rest must be equal
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3912 if (pl2[0] == ps2[1] && pl2[1] == ps2[0]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3913 && STRCMP(pl2 + 2, ps2 + 2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3914 return score + SCORE_DEL + SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3915
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3916 // 3: delete then substitute, then the rest must be equal
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3917 if (STRCMP(pl2 + 1, ps2 + 1) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3918 return score + SCORE_DEL + SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3919
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3920 // 4: first swap then delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3921 if (pl[0] == ps[1] && pl[1] == ps[0])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3922 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3923 pl2 = pl + 2; // swap, skip two chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3924 ps2 = ps + 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3925 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3926 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3927 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3928 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3929 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3930 // delete a char and then strings must be equal
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3931 if (STRCMP(pl2 + 1, ps2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3932 return score + SCORE_SWAP + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3933 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3934
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3935 // 5: first substitute then delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3936 pl2 = pl + 1; // substitute, skip one char
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3937 ps2 = ps + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3938 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3939 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3940 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3941 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3942 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3943 // delete a char and then strings must be equal
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3944 if (STRCMP(pl2 + 1, ps2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3945 return score + SCORE_SUBST + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3946
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3947 // Failed to compare.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3948 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3949
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3950 case 0:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3951 // Lengths are equal, thus changes must result in same length: An
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3952 // insert is only possible in combination with a delete.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3953 // 1: check if for identical strings
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3954 if (*pl == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3955 return score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3956
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3957 // 2: swap
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3958 if (pl[0] == ps[1] && pl[1] == ps[0])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3959 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3960 pl2 = pl + 2; // swap, skip two chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3961 ps2 = ps + 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3962 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3963 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3964 if (*pl2 == NUL) // reached the end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3965 return score + SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3966 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3967 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3968 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3969 // 3: swap and swap again
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3970 if (pl2[0] == ps2[1] && pl2[1] == ps2[0]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3971 && STRCMP(pl2 + 2, ps2 + 2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3972 return score + SCORE_SWAP + SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3973
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3974 // 4: swap and substitute
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3975 if (STRCMP(pl2 + 1, ps2 + 1) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3976 return score + SCORE_SWAP + SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3977 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3978
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3979 // 5: substitute
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3980 pl2 = pl + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3981 ps2 = ps + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3982 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3983 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3984 if (*pl2 == NUL) // reached the end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3985 return score + SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3986 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3987 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3988 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3989
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3990 // 6: substitute and swap
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3991 if (pl2[0] == ps2[1] && pl2[1] == ps2[0]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3992 && STRCMP(pl2 + 2, ps2 + 2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3993 return score + SCORE_SUBST + SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3994
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3995 // 7: substitute and substitute
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3996 if (STRCMP(pl2 + 1, ps2 + 1) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3997 return score + SCORE_SUBST + SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3998
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	3999 // 8: insert then delete
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4000 pl2 = pl;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4001 ps2 = ps + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4002 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4003 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4004 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4005 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4006 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4007 if (STRCMP(pl2 + 1, ps2) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4008 return score + SCORE_INS + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4009
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4010 // 9: delete then insert
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4011 pl2 = pl + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4012 ps2 = ps;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4013 while (pl2 == ps2)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4014 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4015 ++pl2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4016 ++ps2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4017 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4018 if (STRCMP(pl2, ps2 + 1) == 0)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4019 return score + SCORE_INS + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4020
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4021 // Failed to compare.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4022 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4023 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4024
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4025 return SCORE_MAXMAX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4026 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4027
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4028 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4029 * Compute the "edit distance" to turn "badword" into "goodword". The less
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4030 * deletes/inserts/substitutes/swaps are required the lower the score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4031 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4032 * The algorithm is described by Du and Chang, 1992.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4033 * The implementation of the algorithm comes from Aspell editdist.cpp,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4034 * edit_distance(). It has been converted from C++ to C and modified to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4035 * support multi-byte characters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4036 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4037 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4038 spell_edit_score(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4039 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4040 char_u *badword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4041 char_u *goodword)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4042 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4043 int *cnt;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4044 int badlen, goodlen; // lengths including NUL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4045 int j, i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4046 int t;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4047 int bc, gc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4048 int pbc, pgc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4049 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4050 int wbadword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4051 int wgoodword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4052
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4053 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4054 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4055 // Get the characters from the multi-byte strings and put them in an
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4056 // int array for easy access.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4057 for (p = badword, badlen = 0; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4058 wbadword[badlen++] = mb_cptr2char_adv(&p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4059 wbadword[badlen++] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4060 for (p = goodword, goodlen = 0; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4061 wgoodword[goodlen++] = mb_cptr2char_adv(&p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4062 wgoodword[goodlen++] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4063 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4064 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4065 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4066 badlen = (int)STRLEN(badword) + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4067 goodlen = (int)STRLEN(goodword) + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4068 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4069
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4070 // We use "cnt" as an array: CNT(badword_idx, goodword_idx).
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4071 #define CNT(a, b) cnt[(a) + (b) * (badlen + 1)]
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4072 cnt = ALLOC_MULT(int, (badlen + 1) * (goodlen + 1));
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4073 if (cnt == NULL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4074 return 0; // out of memory
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4075
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4076 CNT(0, 0) = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4077 for (j = 1; j <= goodlen; ++j)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4078 CNT(0, j) = CNT(0, j - 1) + SCORE_INS;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4079
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4080 for (i = 1; i <= badlen; ++i)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4081 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4082 CNT(i, 0) = CNT(i - 1, 0) + SCORE_DEL;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4083 for (j = 1; j <= goodlen; ++j)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4084 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4085 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4086 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4087 bc = wbadword[i - 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4088 gc = wgoodword[j - 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4089 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4090 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4091 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4092 bc = badword[i - 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4093 gc = goodword[j - 1];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4094 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4095 if (bc == gc)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4096 CNT(i, j) = CNT(i - 1, j - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4097 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4098 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4099 // Use a better score when there is only a case difference.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4100 if (SPELL_TOFOLD(bc) == SPELL_TOFOLD(gc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4101 CNT(i, j) = SCORE_ICASE + CNT(i - 1, j - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4102 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4103 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4104 // For a similar character use SCORE_SIMILAR.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4105 if (slang != NULL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4106 && slang->sl_has_map
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4107 && similar_chars(slang, gc, bc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4108 CNT(i, j) = SCORE_SIMILAR + CNT(i - 1, j - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4109 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4110 CNT(i, j) = SCORE_SUBST + CNT(i - 1, j - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4111 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4112
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4113 if (i > 1 && j > 1)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4114 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4115 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4116 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4117 pbc = wbadword[i - 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4118 pgc = wgoodword[j - 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4119 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4120 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4121 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4122 pbc = badword[i - 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4123 pgc = goodword[j - 2];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4124 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4125 if (bc == pgc && pbc == gc)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4126 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4127 t = SCORE_SWAP + CNT(i - 2, j - 2);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4128 if (t < CNT(i, j))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4129 CNT(i, j) = t;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4130 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4131 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4132 t = SCORE_DEL + CNT(i - 1, j);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4133 if (t < CNT(i, j))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4134 CNT(i, j) = t;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4135 t = SCORE_INS + CNT(i, j - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4136 if (t < CNT(i, j))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4137 CNT(i, j) = t;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4138 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4139 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4140 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4141
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4142 i = CNT(badlen - 1, goodlen - 1);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4143 vim_free(cnt);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4144 return i;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4145 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4146
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4147 typedef struct
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4148 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4149 int badi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4150 int goodi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4151 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4152 } limitscore_T;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4153
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4154 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4155 * Like spell_edit_score(), but with a limit on the score to make it faster.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4156 * May return SCORE_MAXMAX when the score is higher than "limit".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4157 *
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4158 * This uses a stack for the edits still to be tried.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4159 * The idea comes from Aspell leditdist.cpp. Rewritten in C and added support
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4160 * for multi-byte characters.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4161 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4162 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4163 spell_edit_score_limit(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4164 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4165 char_u *badword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4166 char_u *goodword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4167 int limit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4168 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4169 limitscore_T stack[10]; // allow for over 3 * 2 edits
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4170 int stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4171 int bi, gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4172 int bi2, gi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4173 int bc, gc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4174 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4175 int score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4176 int minscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4177 int round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4178
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4179 // Multi-byte characters require a bit more work, use a different function
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4180 // to avoid testing "has_mbyte" quite often.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4181 if (has_mbyte)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4182 return spell_edit_score_limit_w(slang, badword, goodword, limit);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4183
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4184 // The idea is to go from start to end over the words. So long as
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4185 // characters are equal just continue, this always gives the lowest score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4186 // When there is a difference try several alternatives. Each alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4187 // increases "score" for the edit distance. Some of the alternatives are
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4188 // pushed unto a stack and tried later, some are tried right away. At the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4189 // end of the word the score for one alternative is known. The lowest
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4190 // possible score is stored in "minscore".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4191 stackidx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4192 bi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4193 gi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4194 score = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4195 minscore = limit + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4196
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4197 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4198 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4199 // Skip over an equal part, score remains the same.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4200 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4201 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4202 bc = badword[bi];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4203 gc = goodword[gi];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4204 if (bc != gc) // stop at a char that's different
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4205 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4206 if (bc == NUL) // both words end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4207 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4208 if (score < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4209 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4210 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4211 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4212 ++bi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4213 ++gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4214 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4215
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4216 if (gc == NUL) // goodword ends, delete badword chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4217 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4218 do
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4219 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4220 if ((score += SCORE_DEL) >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4221 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4222 } while (badword[++bi] != NUL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4223 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4224 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4225 else if (bc == NUL) // badword ends, insert badword chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4226 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4227 do
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4228 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4229 if ((score += SCORE_INS) >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4230 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4231 } while (goodword[++gi] != NUL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4232 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4233 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4234 else // both words continue
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4235 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4236 // If not close to the limit, perform a change. Only try changes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4237 // that may lead to a lower score than "minscore".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4238 // round 0: try deleting a char from badword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4239 // round 1: try inserting a char in badword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4240 for (round = 0; round <= 1; ++round)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4241 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4242 score_off = score + (round == 0 ? SCORE_DEL : SCORE_INS);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4243 if (score_off < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4244 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4245 if (score_off + SCORE_EDIT_MIN >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4246 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4247 // Near the limit, rest of the words must match. We
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4248 // can check that right now, no need to push an item
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4249 // onto the stack.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4250 bi2 = bi + 1 - round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4251 gi2 = gi + round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4252 while (goodword[gi2] == badword[bi2])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4253 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4254 if (goodword[gi2] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4255 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4256 minscore = score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4257 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4258 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4259 ++bi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4260 ++gi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4261 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4262 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4263 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4264 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4265 // try deleting/inserting a character later
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4266 stack[stackidx].badi = bi + 1 - round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4267 stack[stackidx].goodi = gi + round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4268 stack[stackidx].score = score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4269 ++stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4270 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4271 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4272 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4273
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4274 if (score + SCORE_SWAP < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4275 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4276 // If swapping two characters makes a match then the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4277 // substitution is more expensive, thus there is no need to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4278 // try both.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4279 if (gc == badword[bi + 1] && bc == goodword[gi + 1])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4280 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4281 // Swap two characters, that is: skip them.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4282 gi += 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4283 bi += 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4284 score += SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4285 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4286 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4287 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4288
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4289 // Substitute one character for another which is the same
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4290 // thing as deleting a character from both goodword and badword.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4291 // Use a better score when there is only a case difference.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4292 if (SPELL_TOFOLD(bc) == SPELL_TOFOLD(gc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4293 score += SCORE_ICASE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4294 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4295 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4296 // For a similar character use SCORE_SIMILAR.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4297 if (slang != NULL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4298 && slang->sl_has_map
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4299 && similar_chars(slang, gc, bc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4300 score += SCORE_SIMILAR;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4301 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4302 score += SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4303 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4304
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4305 if (score < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4306 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4307 // Do the substitution.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4308 ++gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4309 ++bi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4310 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4311 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4312 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4313 pop:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4314 // Get here to try the next alternative, pop it from the stack.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4315 if (stackidx == 0) // stack is empty, finished
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4316 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4317
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4318 // pop an item from the stack
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4319 --stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4320 gi = stack[stackidx].goodi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4321 bi = stack[stackidx].badi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4322 score = stack[stackidx].score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4323 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4324
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4325 // When the score goes over "limit" it may actually be much higher.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4326 // Return a very large number to avoid going below the limit when giving a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4327 // bonus.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4328 if (minscore > limit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4329 return SCORE_MAXMAX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4330 return minscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4331 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4332
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4333 /*
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4334 * Multi-byte version of spell_edit_score_limit().
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4335 * Keep it in sync with the above!
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4336 */
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4337 static int
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4338 spell_edit_score_limit_w(
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4339 slang_T *slang,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4340 char_u *badword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4341 char_u *goodword,
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4342 int limit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4343 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4344 limitscore_T stack[10]; // allow for over 3 * 2 edits
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4345 int stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4346 int bi, gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4347 int bi2, gi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4348 int bc, gc;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4349 int score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4350 int score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4351 int minscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4352 int round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4353 char_u *p;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4354 int wbadword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4355 int wgoodword[MAXWLEN];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4356
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4357 // Get the characters from the multi-byte strings and put them in an
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4358 // int array for easy access.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4359 bi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4360 for (p = badword; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4361 wbadword[bi++] = mb_cptr2char_adv(&p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4362 wbadword[bi++] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4363 gi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4364 for (p = goodword; *p != NUL; )
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4365 wgoodword[gi++] = mb_cptr2char_adv(&p);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4366 wgoodword[gi++] = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4367
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4368 // The idea is to go from start to end over the words. So long as
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4369 // characters are equal just continue, this always gives the lowest score.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4370 // When there is a difference try several alternatives. Each alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4371 // increases "score" for the edit distance. Some of the alternatives are
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4372 // pushed unto a stack and tried later, some are tried right away. At the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4373 // end of the word the score for one alternative is known. The lowest
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4374 // possible score is stored in "minscore".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4375 stackidx = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4376 bi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4377 gi = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4378 score = 0;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4379 minscore = limit + 1;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4380
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4381 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4382 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4383 // Skip over an equal part, score remains the same.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4384 for (;;)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4385 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4386 bc = wbadword[bi];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4387 gc = wgoodword[gi];
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4388
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4389 if (bc != gc) // stop at a char that's different
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4390 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4391 if (bc == NUL) // both words end
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4392 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4393 if (score < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4394 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4395 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4396 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4397 ++bi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4398 ++gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4399 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4400
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4401 if (gc == NUL) // goodword ends, delete badword chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4402 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4403 do
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4404 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4405 if ((score += SCORE_DEL) >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4406 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4407 } while (wbadword[++bi] != NUL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4408 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4409 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4410 else if (bc == NUL) // badword ends, insert badword chars
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4411 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4412 do
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4413 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4414 if ((score += SCORE_INS) >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4415 goto pop; // do next alternative
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4416 } while (wgoodword[++gi] != NUL);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4417 minscore = score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4418 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4419 else // both words continue
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4420 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4421 // If not close to the limit, perform a change. Only try changes
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4422 // that may lead to a lower score than "minscore".
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4423 // round 0: try deleting a char from badword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4424 // round 1: try inserting a char in badword
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4425 for (round = 0; round <= 1; ++round)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4426 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4427 score_off = score + (round == 0 ? SCORE_DEL : SCORE_INS);
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4428 if (score_off < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4429 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4430 if (score_off + SCORE_EDIT_MIN >= minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4431 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4432 // Near the limit, rest of the words must match. We
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4433 // can check that right now, no need to push an item
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4434 // onto the stack.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4435 bi2 = bi + 1 - round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4436 gi2 = gi + round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4437 while (wgoodword[gi2] == wbadword[bi2])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4438 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4439 if (wgoodword[gi2] == NUL)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4440 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4441 minscore = score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4442 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4443 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4444 ++bi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4445 ++gi2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4446 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4447 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4448 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4449 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4450 // try deleting a character from badword later
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4451 stack[stackidx].badi = bi + 1 - round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4452 stack[stackidx].goodi = gi + round;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4453 stack[stackidx].score = score_off;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4454 ++stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4455 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4456 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4457 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4458
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4459 if (score + SCORE_SWAP < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4460 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4461 // If swapping two characters makes a match then the
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4462 // substitution is more expensive, thus there is no need to
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4463 // try both.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4464 if (gc == wbadword[bi + 1] && bc == wgoodword[gi + 1])
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4465 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4466 // Swap two characters, that is: skip them.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4467 gi += 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4468 bi += 2;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4469 score += SCORE_SWAP;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4470 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4471 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4472 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4473
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4474 // Substitute one character for another which is the same
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4475 // thing as deleting a character from both goodword and badword.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4476 // Use a better score when there is only a case difference.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4477 if (SPELL_TOFOLD(bc) == SPELL_TOFOLD(gc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4478 score += SCORE_ICASE;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4479 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4480 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4481 // For a similar character use SCORE_SIMILAR.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4482 if (slang != NULL
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4483 && slang->sl_has_map
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4484 && similar_chars(slang, gc, bc))
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4485 score += SCORE_SIMILAR;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4486 else
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4487 score += SCORE_SUBST;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4488 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4489
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4490 if (score < minscore)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4491 {
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4492 // Do the substitution.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4493 ++gi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4494 ++bi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4495 continue;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4496 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4497 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4498 pop:
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4499 // Get here to try the next alternative, pop it from the stack.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4500 if (stackidx == 0) // stack is empty, finished
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4501 break;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4502
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4503 // pop an item from the stack
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4504 --stackidx;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4505 gi = stack[stackidx].goodi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4506 bi = stack[stackidx].badi;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4507 score = stack[stackidx].score;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4508 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4509
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4510 // When the score goes over "limit" it may actually be much higher.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4511 // Return a very large number to avoid going below the limit when giving a
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4512 // bonus.
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4513 if (minscore > limit)
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4514 return SCORE_MAXMAX;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4515 return minscore;
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4516 }
6e53d83e021d patch 8.1.2081: the spell.c file is too big Bram Moolenaar <Bram@vim.org> parents: diff changeset	4517 #endif // FEAT_SPELL

Mercurial > vim

annotate src/spellsuggest.c @ 30823:80a336303eb9 v9.0.0746