diff options
| author | Robert Dewar <dewar@adacore.com> | 2006-10-31 19:00:56 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 19:00:56 +0100 |
| commit | 30f41abaecc1914140134b0f97619fa4dc9c90c9 (patch) | |
| tree | 2bda120121e456fc4a5dc9c90794258cb7d0c74b /gcc | |
| parent | ad98c85e5b31557702533ffe9fe8109ba642705c (diff) | |
| download | gcc-30f41abaecc1914140134b0f97619fa4dc9c90c9.zip gcc-30f41abaecc1914140134b0f97619fa4dc9c90c9.tar.gz gcc-30f41abaecc1914140134b0f97619fa4dc9c90c9.tar.bz2 | |
g-speche.ads, [...]: Add special case to recognize misspelling initial letter o as a zero.
2006-10-31 Robert Dewar <dewar@adacore.com>
* g-speche.ads, g-speche.adb: Add special case to recognize misspelling
initial letter o as a zero.
From-SVN: r118281
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/g-speche.adb | 15 | ||||
| -rw-r--r-- | gcc/ada/g-speche.ads | 5 |
2 files changed, 11 insertions, 9 deletions
diff --git a/gcc/ada/g-speche.adb b/gcc/ada/g-speche.adb index 26af290..9d00bc5 100644 --- a/gcc/ada/g-speche.adb +++ b/gcc/ada/g-speche.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1998-2005 AdaCore -- +-- Copyright (C) 1998-2006, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -39,8 +39,7 @@ package body GNAT.Spelling_Checker is function Is_Bad_Spelling_Of (Found : String; - Expect : String) - return Boolean + Expect : String) return Boolean is FN : constant Natural := Found'Length; FF : constant Natural := Found'First; @@ -60,9 +59,14 @@ package body GNAT.Spelling_Checker is elsif EN = 0 then return False; - -- If first character does not match, then definitely not misspelling + -- If first character does not match, then we consider that this is + -- definitely not a misspelling. An exception is when we expect a + -- letter O and found a zero. - elsif Found (FF) /= Expect (EF) then + elsif Found (FF) /= Expect (EF) + and then (Found (FF) /= '0' + or else (Expect (EF) /= 'o' and then Expect (EF) /= 'O')) + then return False; -- Not a bad spelling if both strings are 1-2 characters long @@ -149,7 +153,6 @@ package body GNAT.Spelling_Checker is else return False; end if; - end Is_Bad_Spelling_Of; end GNAT.Spelling_Checker; diff --git a/gcc/ada/g-speche.ads b/gcc/ada/g-speche.ads index f3482d4..ab3daea 100644 --- a/gcc/ada/g-speche.ads +++ b/gcc/ada/g-speche.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1998-2005 AdaCore -- +-- Copyright (C) 1998-2006, AdaCore -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -40,8 +40,7 @@ package GNAT.Spelling_Checker is function Is_Bad_Spelling_Of (Found : String; - Expect : String) - return Boolean; + Expect : String) return Boolean; -- Determines if the string Found is a plausible misspelling of the -- string Expect. Returns True for an exact match or a probably -- misspelling, False if no near match is detected. This routine |