From 8972a43a85fb68f7f532fbaf5ec3e5e9b9e4c224 Mon Sep 17 00:00:00 2001
From: Seth Burgess <sjburges@src.gnome.org>
Date: Sun, 18 Apr 1999 20:29:32 +0000
Subject: [PATCH] Oops, forgot to include the gimprc.pdb used to generate the
 fucntion

---
 tools/pdbgen/pdb/gimprc.pdb | 44 +++++++++++++++++++++++++++++++++++--
 1 file changed, 42 insertions(+), 2 deletions(-)

diff --git a/tools/pdbgen/pdb/gimprc.pdb b/tools/pdbgen/pdb/gimprc.pdb
index fd08e88a7f..193b158f42 100644
--- a/tools/pdbgen/pdb/gimprc.pdb
+++ b/tools/pdbgen/pdb/gimprc.pdb
@@ -16,9 +16,49 @@
 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 
 # "Perlized" from C source by Manish Singh <yosh@gimp.org>
+#   Added a PDB entry for writing a gimprc entry, by 
+#  Seth Burgess <sjburges@gimp.org> 15/04/99
 
 # The defs
 
+sub gimprc_set {
+    $blurb = <<'BLURB';
+Sets a gimprc token to a value and saves it in the gimprc.
+BLURB
+
+    $help = <<'HELP';
+This procedure is used to add or change additional information in the gimprc
+file that is considered extraneous to the operation of the GIMP.  Plug-ins
+that need configuration information can use this function to store it, and
+gimp_gimprc_query to retrieve it.  This will accept _only_ parameters in
+the format of (<token> <value>), where <token> and <value> must be strings.
+Entrys not corresponding to this format will be eaten and no action will
+be performed.  If the gimprc can not be written for whatever reason, gimp
+will complain loudly and the old gimprc will be saved in gimprc.old.
+HELP
+
+    $author = $copyright = 'Seth Burgess';
+	$date = '1999';
+	
+    @inargs = (
+	{ name => 'token', type => 'string',
+	  desc => 'The token to modify' },
+    { name => 'value', type => 'string',
+      desc => 'The value to set the token to' }
+    );
+
+	%invoke = ( 
+	headers => [ qw("gimprc.h") ],
+	code => <<'CODE'
+{
+save_gimprc_strings(token, value);
+success = TRUE;
+}	
+CODE
+	);
+}
+
+
 sub gimprc_query {
     $blurb = <<'BLURB';
 Queries the gimprc file parser for information on a specified token.
@@ -27,7 +67,7 @@ BLURB
     $help = <<'HELP';
 This procedure is used to locate additional information contained in the gimprc
 file considered extraneous to the operation of the GIMP. Plug-ins that need
-configuration information can expect it will be stored in the user's gimprc
+configuration information can expect it will be stored in the user gimprc
 file and can use this procedure to retrieve it. This query procedure will
 return the value associated with the specified token. This corresponds _only_
 to entries with the format: (<token> <value>). The value must be a string.
@@ -56,7 +96,7 @@ HELP
     );
 }
 
-@procs = qw(gimprc_query);
+@procs = qw(gimprc_query gimprc_set);
 %exports = (app => [@procs]);
 
 $desc = 'Gimprc procedures';