--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/doc/interpreter/doccheck/add_to_aspell_dict	Sat Jul 17 19:53:01 2010 -0700
@@ -0,0 +1,44 @@
+#!/usr/bin/perl -w
+
+################################################################################
+# File   : add_to_aspell_dict
+# Purpose: Merges a file of new words into an existing dictionary file.
+#          The resulting file is uniquified and sorted before being written out.
+# Usage  : add_to_aspell_dict <filename_of_new_words>
+################################################################################
+# Initialize variables
+# Private Octave dictionary for Aspell
+$octdict_fname = './doccheck/aspell-octave.en.pws';
+
+################################################################################
+# Parse command line arguments
+if (@ARGV != 1)
+{
+   die "USAGE: add_to_aspell_dict <filename_of_new_words>\n";
+}
+
+$new_words_fname = shift(@ARGV);
+if (!-r $new_words_fname)
+{
+	die "Unable to read input file: $new_words_fname\n";
+}
+
+################################################################################
+# Add new words to a dictionary database
+open (FH, "<$new_words_fname") or die "Unable to open file: $new_words_fname\n";
+while (<FH>) { $dict_db{$_} = 1; }
+close (FH);
+
+# Add words from existing dictionary to dictionary database
+open (FH, "<$octdict_fname") or die "Unable to open Octave dictionary: $octdict_fname\n";
+$header = <FH>;
+while (<FH>) { $dict_db{$_} = 1; }
+close (FH);
+
+# Remove old dictionary file and write out new one
+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);
+close (FH);
+