see plug-ins/perl/Changes
| ... | ... | @@ -85,29 +85,122 @@ lw20 lw20 lw60. |
| TYPE NAME DESCRIPTION | ||
| EOF | ||
| sub gen_va(\@\@) { | ||
| my @vals = @{+shift}; | ||
| my @args = @{+shift}; | ||
| my($vals,$args); | ||
| if (@vals == 0) { | ||
| $vals = ""; | ||
| } elsif (@vals == 1) { | ||
| $vals = "$vals[0][1]\\ =\\ "; | ||
| } else { | ||
| $vals = "(".join(",",map $_->[1],@vals).")\\ =\\ "; | ||
| } | ||
| if (@args == 0) { | ||
| $args = ""; | ||
| } else { | ||
| $args = "\\ (".join(",",map $_->[1],@args).")"; | ||
| } | ||
| ($vals,$args); | ||
| } | ||
| sub isarray { | ||
| return 1 if $_[0] == &PARAM_INT8ARRAY; | ||
| return 1 if $_[0] == &PARAM_INT16ARRAY; | ||
| return 1 if $_[0] == &PARAM_INT32ARRAY; | ||
| return 1 if $_[0] == &PARAM_FLOATARRAY; | ||
| return 1 if $_[0] == &PARAM_STRINGARRAY; | ||
| return 0; | ||
| } | ||
| sub killcounts(\@) { | ||
| my $a = shift; | ||
| my $roa=0; | ||
| for(local $_=0; $_<$#$a; $_++) { | ||
| if (isarray ($a->[$_+1][0]) && $a->[$_][0] == &PARAM_INT32) { | ||
| splice @$a, $_, 1; | ||
| $roa=1; | ||
| } | ||
| } | ||
| $roa; | ||
| } | ||
| sub weight { | ||
| my ($v,$n,$a)=@$_; | ||
| my $w = $#$v + $#$a; | ||
| $w-- if $n =~ s/^\$\w+//; | ||
| $w += 1-1/(1+length $n); | ||
| if ($n =~ / ([A-Z][a-z]+)$/) { | ||
| $w += 1 unless $1 eq ucfirst $a->[0][1]; | ||
| } | ||
| $w; | ||
| } | ||
| sub gen_alternatives(\@$\@) { | ||
| my @new = [@_]; | ||
| my @res; | ||
| do { | ||
| my @prev = @new; | ||
| @new = (); | ||
| for my $alt (@prev) { | ||
| my @vals = @{$alt->[0]}; | ||
| my $name = $alt->[1]; | ||
| my @args = @{$alt->[2]}; | ||
| # try to get rid of array counts | ||
| push @new, [\@vals,$name,\@args] if killcounts(@vals) | killcounts(@args); | ||
| unless ($name =~ /[$ ]/) { | ||
| for my $class (qw( | ||
| Gimp Layer Image Drawable Selection Channel Display | ||
| </ |