diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:00:56 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-31 18:00:56 +0000 |
| commit | 01316465df59fefd624562f041673533e9aa6aa5 (patch) | |
| tree | 2bda120121e456fc4a5dc9c90794258cb7d0c74b | |
| parent | 0ade5f7f918c1e3e7442ef8574c3d67dd4bab4a4 (diff) | |
| download | gcc-01316465df59fefd624562f041673533e9aa6aa5.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@118281 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 26af290b3b1..9d00bc5e099 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 f3482d47e3a..ab3daeaecd5 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 |