dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 2000-02-17 20:33:02 +00:00
parent 45842e262a
commit f769024aae
5 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/perl/Changes
View File

@ -14,6 +14,8 @@ Revision history for Gimp-Perl extension.
- added examples/blended2, examples/translogo.
- removed examples/giflogo.
- applied libintl fix by yasuhiro@awa.tohoku.ac.jp.
- applied save_image/PNG-noextra switch patch by pkaempf@box.echo.ch.
- applied Perl-Server reuseaddress fix by gphan@webjuice.com.
1.19 Thu Jan 6 00:21:58 CET 2000
- used N_ to mark all the menu paths, since gimp now tries to

8
plug-ins/perl/Gimp/Fu.pm
View File

@ -805,7 +805,9 @@ IMAGETYPE is one of GIF, JPG, JPEG, PNM or PNG, options include
options for PNG images
-Cn use compression level n
-E Do not skip ancillary chunks (default)
+E Skip ancillary chunks
options for JPEG images
-Qn use quality "n" to save file (JPEG only)
-S do not smooth (default)
@ -834,6 +836,7 @@ sub save_image($$) {
$loop=0;
$delay=0;
$dispose=0;
$noextra=0;
$_=$path=~s/^([^:]+):// ? $1 : "";
$type=uc($1) if $path=~/\.([^.]+)$/;
@ -841,6 +844,7 @@ sub save_image($$) {
while($_ ne "") {
$interlace=$1 eq "+", next if s/^([-+])[iI]//;
$flatten=$1 eq "+", next if s/^([-+])[fF]//;
$noextra=$1 eq "+", next if s/^([-+])[eE]//;
$smooth=$1 eq "+", next if s/^([-+])[sS]//;
$quality=$1*0.01, next if s/^-[qQ](\d+)//;
$compress=$1, next if s/^-[cC](\d+)//;
@ -866,7 +870,7 @@ sub save_image($$) {
}
$layer->file_gif_save($path,$path,$interlace,$loop,$delay,$dispose);
} elsif ($type eq "PNG") {
$layer->file_png_save($path,$path,$interlace,$compress);
$layer->file_png_save($path,$path,$interlace,$noextra,$compress);
} elsif ($type eq "PNM") {
$layer->file_pnm_save($path,$path,1);
} else {

2
plug-ins/perl/Makefile.PL
View File

@ -325,7 +325,7 @@ WriteMakefile(
'Gimp/Module.pm' => '$(INST_LIBDIR)/Gimp/Module.pm',
'Gimp/Config.pm' => '$(INST_LIBDIR)/Gimp/Config.pm',
},
'LDFROM' => expand("\$(OBJECT) $LIBS $INTLLIBS"),
'LDFROM' => expand("\$(OBJECT) $LIBS"), # $INTLLIBS
'INC' => "$INC1 $GIMP_INC_NOUI $CPPFLAGS $CFLAGS",
'DEFINE' => "$DEFINE1 $DEFS",
'EXE_FILES' => [qw(scm2perl scm2scm gimpdoc xcftopnm embedxpm)],

4
plug-ins/perl/Perl-Server
View File

@ -210,8 +210,8 @@ sub extension_perl_server {
$port=$Gimp::Net::default_tcp_port unless $port;
$tcp = local *FH;
socket($tcp,PF_INET,SOCK_STREAM,scalar getprotobyname('tcp') || 6)
&& bind($tcp,sockaddr_in $port,INADDR_ANY)
&& setsockopt($tcp,SOL_SOCKET,SO_REUSEADDR,1)
&& bind($tcp,sockaddr_in $port,INADDR_ANY)
&& listen($tcp,5)
or die __"unable to create listening tcp socket: $!\n";
slog __"accepting connections on port $port";
@ -233,8 +233,8 @@ sub extension_perl_server {
if ($use_tcp && $auth) {
$tcp = local *FH;
socket($tcp,PF_INET,SOCK_STREAM,scalar getprotobyname('tcp') || 6)
&& bind($tcp,sockaddr_in $Gimp::Net::default_tcp_port,INADDR_ANY)
&& setsockopt($tcp,SOL_SOCKET,SO_REUSEADDR,1)
&& bind($tcp,sockaddr_in $Gimp::Net::default_tcp_port,INADDR_ANY)
&& listen($tcp,5)
or die __"unable to create listening tcp socket: $!\n";
slog __"accepting connections on port $Gimp::Net::default_tcp_port";

2
plug-ins/perl/embed/perlmod.c
View File

@ -5,7 +5,7 @@
#include <libgimp/gimpmodule.h>
#include "../ppport.h"
#include "../gppport.h"
static GimpModuleInfo info = {
NULL,