diff options
| author | David Malcolm <dmalcolm@redhat.com> | 2018-06-12 18:28:37 +0000 |
|---|---|---|
| committer | David Malcolm <dmalcolm@gcc.gnu.org> | 2018-06-12 18:28:37 +0000 |
| commit | b80a188beea98da44228d6030932af0769946f83 (patch) | |
| tree | 30899a1fa363ab017696f4a64c390302d401ce6b /gcc/fortran/misc.c | |
| parent | e3329a782fc0e51b9a4ddfc6938a484ec4b03084 (diff) | |
| download | gcc-b80a188beea98da44228d6030932af0769946f83.zip gcc-b80a188beea98da44228d6030932af0769946f83.tar.gz gcc-b80a188beea98da44228d6030932af0769946f83.tar.bz2 | |
spellcheck: support transpositions aka Damerau-Levenshtein (PR other/69968)
gcc/fortran/ChangeLog:
PR other/69968
* misc.c (gfc_closest_fuzzy_match): Update for renaming of
levenshtein_distance to get_edit_distance.
gcc/ChangeLog:
PR other/69968
* spellcheck-tree.c (levenshtein_distance): Rename to...
(get_edit_distance): ...this, and update for underlying renaming.
* spellcheck-tree.h (levenshtein_distance): Rename to...
(get_edit_distance): ...this.
* spellcheck.c (levenshtein_distance): Rename to...
(get_edit_distance): ...this. Convert from Levenshtein distance
to Damerau-Levenshtein distance by supporting transpositions of
adjacent characters. Rename "v1" to "v_next" and "v0" to
"v_one_ago".
(selftest::levenshtein_distance_unit_test_oneway): Rename to...
(selftest::test_edit_distance_unit_test_oneway): ...this, and
update for underlying renaming.
(selftest::levenshtein_distance_unit_test): Rename to...
(selftest::test_get_edit_distance_unit): ...this, and update for
underlying renaming.
(selftest::test_find_closest_string): Add example from PR 69968
where transposition helps
(selftest::test_metric_conditions): Update for renaming.
(selftest::test_metric_conditions): Likewise.
(selftest::spellcheck_c_tests): Likewise.
* spellcheck.h (levenshtein_distance): Rename both overloads to...
(get_edit_distance): ...this.
(best_match::consider): Update for renaming.
gcc/testsuite/ChangeLog:
PR other/69968
* gcc.dg/spellcheck-transposition.c: New test.
From-SVN: r261521
Diffstat (limited to 'gcc/fortran/misc.c')
| -rw-r--r-- | gcc/fortran/misc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/misc.c b/gcc/fortran/misc.c index ec1f548..fb18c5c 100644 --- a/gcc/fortran/misc.c +++ b/gcc/fortran/misc.c @@ -286,7 +286,7 @@ get_c_kind(const char *c_kind_name, CInteropKind_t kinds_table[]) /* For a given name TYPO, determine the best candidate from CANDIDATES - perusing Levenshtein distance. Frees CANDIDATES before returning. */ + using get_edit_distance. Frees CANDIDATES before returning. */ const char * gfc_closest_fuzzy_match (const char *typo, char **candidates) @@ -299,7 +299,7 @@ gfc_closest_fuzzy_match (const char *typo, char **candidates) while (cand && *cand) { - edit_distance_t dist = levenshtein_distance (typo, tl, *cand, + edit_distance_t dist = get_edit_distance (typo, tl, *cand, strlen (*cand)); if (dist < best_distance) { |