Commit 373db07d authored by Sven Neumann's avatar Sven Neumann Committed by Sven Neumann

tools/pdbgen/lib.pl added new procedure variable 'since' that allows to

2004-05-13  Sven Neumann  <sven@gimp.org>

	* tools/pdbgen/lib.pl
	* tools/pdbgen/pdbgen.pl: added new procedure variable 'since'
	that allows to specify when a new function was added. Use that
	info to generate an appropriate gtk-doc comment.

	* tools/pdbgen/pdb/plug_in.pdb: set since = '2.2' for the new
	function gimp_plugin_menu_register().

	* libgimp/gimpplugin_pdb.c: regenerated.
parent b8739d59
2004-05-13 Sven Neumann <sven@gimp.org>
* tools/pdbgen/lib.pl
* tools/pdbgen/pdbgen.pl: added new procedure variable 'since'
that allows to specify when a new function was added. Use that
info to generate an appropriate gtk-doc comment.
* tools/pdbgen/pdb/plug_in.pdb: set since = '2.2' for the new
function gimp_plugin_menu_register().
* libgimp/gimpplugin_pdb.c: regenerated.
2004-05-13 Michael Natterer <mitch@gimp.org>
* menus/tool-options-menu.xml: added "name" attributes to all
......
......@@ -171,6 +171,8 @@ gimp_plugin_help_register (const gchar *domain_name,
* procedure.
*
* Returns: TRUE on success.
*
* Since: GIMP 2.2
*/
gboolean
gimp_plugin_menu_register (const gchar *procedure_name,
......
......@@ -116,7 +116,7 @@ sub generate {
# The parameters to the function
my $arglist = ""; my $argpass = ""; my $privatevars = 0;
my $argdesc = "";
my $argdesc = ""; my $sincedesc = "";
foreach (@inargs) {
my ($type) = &arg_parse($_->{type});
my $desc = &desc_clean($_->{desc});
......@@ -442,6 +442,10 @@ CODE
unless ($retdesc =~ /[\.\!\?]$/) { $retdesc .= '.' }
if ($proc->{since}) {
$sincedesc = "\n *\n * Since: GIMP $proc->{since}";
}
$out->{code} .= <<CODE;
/**
......@@ -451,7 +455,7 @@ $argdesc *
*
@{[ &desc_wrap($proc->{help}) ]}
*
* Returns: $retdesc
* Returns: $retdesc$sincedesc
*/
$rettype
$wrapped$funcname ($clist)
......
......@@ -311,6 +311,7 @@ HELP
$author = $copyright = 'Michael Natterer <mitch@gimp.org>';
$date = '2004';
$since = '2.2';
@inargs = (
{ name => 'procedure_name', type => 'string',
......
......@@ -66,7 +66,7 @@ $evalcode = <<'CODE';
};
# Variables to evaluate and insert into the PDB structure
my @procvars = qw($name $group $blurb $help $author $copyright $date
my @procvars = qw($name $group $blurb $help $author $copyright $date $since
@inargs @outargs %invoke);
# These are attached to the group structure
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment