Commit ecd5ff93 authored by Marc Lehmann's avatar Marc Lehmann

see plug-ins/perl/Changes

parent da55446e
Revision history for Gimp-Perl extension.
1.092
- testsuite failed when !HAVE_PDL (and the whole package broke on
systems with underpowered dynamic linkers).
- gtk-1.0.x and gimp < 1.0.4 are no longer "officially" supported.
- added COMPRESSION_*-constants for file_tiff.
1.091 Sun May 23 13:21:34 CEST 1999
- include a fake typemap.pdl.
......
......@@ -13,7 +13,7 @@ use subs qw(init end lock unlock canonicalize_color);
require DynaLoader;
@ISA=qw(DynaLoader);
$VERSION = 1.091;
$VERSION = 1.092;
@_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE
......@@ -50,6 +50,7 @@ $VERSION = 1.091;
'PARASITE_PARENT_PERSISTENT', 'PARASITE_ATTACH_GRANDPARENT', 'PARASITE_GRANDPARENT_PERSISTENT',
'PARASITE_UNDOABLE', 'PARASITE_PARENT_UNDOABLE', 'PARASITE_GRANDPARENT_UNDOABLE',
'TRACE_NONE', 'TRACE_CALL', 'TRACE_TYPE', 'TRACE_NAME', 'TRACE_DESC', 'TRACE_ALL',
'COMPRESSION_NONE', 'COMPRESSION_LZW', 'COMPRESSION_PACKBITS',
);
@_procs = ('main','xlfd_size');
......@@ -88,6 +89,11 @@ sub WRAP (){ 0 }
sub SMEAR (){ 1 }
sub BLACK (){ 2 }
# file_tiff_*
sub COMPRESSION_NONE (){ 0 }
sub COMPRESSION_LZW (){ 1 }
sub COMPRESSION_PACKBITS (){ 2 }
# internal constants shared with Perl-Server
sub _PS_FLAG_QUIET { 0000000001 }; # do not output messages
......
......@@ -187,7 +187,7 @@ sub set_clist {
sub complete_function {
my $name = shift;
$name=~s/[-_]/[-_]/g;
my @matches = sort grep /$name/i,@function;
my @matches = eval { sort grep /$name/i,@function };
if(@matches>70) {
set_clist map(($_,$_),@matches[0..69]);
$synopsis->set("showing only the first 70 matches (of ".(scalar@matches).")");
......
......@@ -58,6 +58,7 @@ $|=1;
use Parse::RecDescent;
$RD_HINT=1;
#$RD_TRACE=1;
unless(@ARGV) {
print STDERR "Script-Fu to Perl Translator 1.0\n";
......@@ -152,8 +153,9 @@ nth => 'sub nth {
}',
);
my $xskip;
my $compat_fun = join("|",map {quotemeta} sort {length($b) <=> length($a)} keys %compat_fun);
my $skip;
sub func2perl {
my($name)=@_;
......@@ -392,10 +394,10 @@ constant: /(?:$constants)(?=[ \t;)\n\r])/ gen[$constant{$item[-1]}]
nl: gen["\n".(" " x $indent)]
incindent: { printf STDERR " %2d%%\b\b\b\b",$thisoffset*100/$::filesize unless $::quiet } { $indent++ }
decindent: { $indent-- }
skip: { $skip++ }
unskip: { $skip-- }
gen: ( <reject:$skip> <defer: print ::OUT $arg[0] > )[@arg](?)
#gen: { $skip or print $arg[0] } #d#
skip: { $xskip++ }
unskip: { $xskip-- }
gen: ( <reject:$xskip> <defer: print ::OUT $arg[0] > )[@arg](?)
#gen: { $xskip or print $arg[0] } #d#
EOA
......
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