[gimp-perl] Add gimp_procedural_db_query to Lib.xs.

[Ed J <edj src gnome org>]

commit 97d1c40a397addf7bd23f7997865e9fb5d66059e
Author: Ed J <edj src gnome org>
Date:   Mon Jun 9 02:02:58 2014 +0100

    Add gimp_procedural_db_query to Lib.xs.

 Gimp/Lib.xs |   24 ++++++++++++++++++++++++
 1 files changed, 24 insertions(+), 0 deletions(-)
---
diff --git a/Gimp/Lib.xs b/Gimp/Lib.xs
index 0cdf2d6..33aa66a 100644
--- a/Gimp/Lib.xs
+++ b/Gimp/Lib.xs
@@ -1426,6 +1426,30 @@ PPCODE:
 }
 
 void
+gimp_procedural_db_query(name, blurb, help, author, copyright, date, proc_type)
+  const char *name
+  const char *blurb
+  const char *help
+  const char *author
+  const char *copyright
+  const char *date
+  const char *proc_type
+INIT:
+  gint num_matches;
+  const gchar **procedure_names;
+  int i;
+PPCODE:
+  if (!gimp_procedural_db_query (
+    name, blurb, help, author, copyright, date, proc_type, &num_matches,
+    &procedure_names
+  )) croak (__("gimp_procedural_db_proc_query failed"));
+  if (!num_matches) XSRETURN_EMPTY;
+  EXTEND (SP, num_matches);
+  for (i = 0; i < num_matches; i++) {
+    PUSHs (sv_2mortal(newSVpv(procedure_names[i], 0)));
+  }
+
+void
 gimp_call_procedure (proc_name, ...)
   utf8_str     proc_name
 PPCODE: