Mercurial > hg > octave-lyh
changeset 10795:0306e572c686
Use case insensitive sort in spellcheck scripts.
| author | Rik <octave@nomad.inbox5.com> |
|---|---|
| date | Sun, 18 Jul 2010 22:10:13 -0700 |
| parents | 802d0fd0eaf0 |
| children | eaf7c8ab3b0c |
| files | doc/ChangeLog doc/interpreter/doccheck/add_to_aspell_dict doc/interpreter/doccheck/spellcheck |
| diffstat | 3 files changed, 10 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/doc/ChangeLog +++ b/doc/ChangeLog @@ -1,7 +1,13 @@ +2010-07-18 Rik <octave@nomad.inbox5.com> + + * interpreter/doccheck/spellcheck, + interpreter/doccheck/spellcheck/add_to_aspell_dict: + Use case insensitive sort in spellcheck scripts. + 2010-07-18 Rik <octave@nomad.inbox5.com> * interpreter/doccheck/aspell-octave.en.pws: Add Octave-specific words - from stats.texi to private Aspell dictionary + from stats.texi to private Aspell dictionary. 2010-07-17 Rik <octave@nomad.inbox5.com>
--- a/doc/interpreter/doccheck/add_to_aspell_dict +++ b/doc/interpreter/doccheck/add_to_aspell_dict @@ -20,7 +20,7 @@ $new_words_fname = shift(@ARGV); if (!-r $new_words_fname) { - die "Unable to read input file: $new_words_fname\n"; + die "Unable to read input file: $new_words_fname\n"; } ################################################################################ @@ -39,6 +39,6 @@ unlink ($octdict_fname) or die "Unable to delete Octave dictionary: $octdict_fname\n"; open (FH, ">$octdict_fname") or die "Unable to open file for writing: $octdict_fname\n"; print FH $header; -print FH sort keys(%dict_db); +print FH sort { uc($a) cmp uc ($b) } keys(%dict_db); close (FH);
--- a/doc/interpreter/doccheck/spellcheck +++ b/doc/interpreter/doccheck/spellcheck @@ -39,7 +39,7 @@ close (FH); # Print out sorted and uniquified list of misspelled words -print sort keys(%words); +print sort { uc($a) cmp uc ($b) } keys(%words); ################################################################################ # Clean up temporary files