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-21 12:39:22 +00:00
parent e836901c83
commit c655dfcd35
8 changed files with 71 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
plug-ins/perl/MANIFEST
View File

@ -130,6 +130,7 @@ examples/billboard
examples/blended2
pxgettext
po/ChangeLog
po/Makefile.PL
po/de.po
po/it.po
po/cs.po

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

@ -220,24 +220,6 @@ force_uninstall_from_perldirs ::
force_uninstall_from_sitedirs ::
\$(PERL) -MExtUtils::Install -e 'uninstall(\$\$ARGV[0],1,0)' ".$self->catfile('$(SITEARCHEXP)','auto','$(FULLEXT)','.packlist')."
install-po:
";
print "Portable message object...";
if ($MSGFMT =~ /./) {
for (<po/*.po>) {
my($po)=m!/(.*)\.po$!; #/# for brainy vim
print " $po";
$postamble .= " \$(MKPATH) \$(datadir)/locale/$po/LC_MESSAGES\n";
$postamble .= " -\$(MSGFMT) -o \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo po/$po.po\n";
$postamble .= " -\$(CHMOD) 644 \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
}
} else {
print " skipped";
}
print "\n";
$postamble .= "
# generate tags file
tags: .
ctags --lang=c `find . -name '*.xs' -print`
@ -246,10 +228,6 @@ tags: .
autoconf:
aclocal; autoheader; autoconf
# merge messages into potfile
msgmerge:
./po/update.sh
# set \$VERSION in all modules
setver:
\$(PERL) -pi -e 's/^(\\s*\\\$\$VERSION\\s*=\\s*).*\$\$/\$\${1}\$(VERSION);/' *.pm Gimp/*.pm UI/*.pm Net/*.pm
@ -260,7 +238,7 @@ setver:
}
$GIMP_INC_NOUI = "-I../../ $GIMP_INC_NOUI" if $IN_GIMP;
@DIRS= qw/Gimp Net UI/;
@DIRS= qw/Gimp Net UI po/;
$build_module = $IN_GIMP || $ENV{GIMP_PERL_MODULE_INC};
# temporarily disabled because of politics
@ -296,6 +274,9 @@ print "writing Gimp/Config.pm... ";
}
print "ok\n";
@EXE_FILES = qw(gimpdoc xcftopnm embedxpm);
push @EXE_FILES, qw(scm2perl scm2scm) if $PRD;
WriteMakefile(
'dist' => {
PREOP => 'make setver && chmod -R u=rwX,go=rX . ;',
@ -328,7 +309,7 @@ WriteMakefile(
'LDFROM' => expand("\$(OBJECT) $LIBS $INTLLIBS"),
'INC' => "$INC1 $GIMP_INC_NOUI $CPPFLAGS $CFLAGS",
'DEFINE' => "$DEFINE1 $DEFS",
'EXE_FILES' => [qw(scm2perl scm2scm gimpdoc xcftopnm embedxpm)],
'EXE_FILES' => \@EXE_FILES,
'macro' => \%cfg,
'realclean' => { FILES => "config.status config.cache config.pl config.log config.h Gimp/Config.pm Makefile" },
'clean' => { FILES => "Makefile.old stamp-h" },

9
plug-ins/perl/TODO
View File

@ -14,14 +14,15 @@ put under LGPL:
gimpenv.c, gimpmodule.h, color_selector.h, color_display.h
po/Makefile
<Sven> schmorp: I think the makefile should have all (builds the pot-file and
calls msgfmt if po-files have changed),
+update-po (merges all po-files), install, uninstall eventually
API generalization
guide ->
gimp_desaturate -> drawable
firetext! AND _grayscale_ for map_gradient(!)
sota-chrome pagesize of 2 is _wrong_
bugs
* damnit libintl crazy shit
[DONE] * alow gimp_selection_shrink with a zero argument.

1
plug-ins/perl/config.pl.in
View File

@ -47,6 +47,7 @@ $^W=0;
LIBS => q[@LIBS@],
INTLLIBS => q[@INTLLIBS@],
MSGFMT => q[@MSGFMT@],
MSGMERGE => q[@MSGMERGE@],
);
sub expand {

5
plug-ins/perl/po/ChangeLog
View File

@ -1,3 +1,8 @@
Mon Feb 21 13:24:39 CET 2000 Marc Lehmann <pcg@goof.com>
* Makefile.PL: New file, should support the "standard" targets.
* update.sh: Sven wrote this better version.
Mon Feb 21 01:15:28 CET 2000 Sven Neumann <sven@gimp.org>
* .cvsignore: added a few files that shouldn't be in CVS

51
plug-ins/perl/po/Makefile.PL Normal file
View File

@ -0,0 +1,51 @@
use ExtUtils::MakeMaker;
do '../config.pl';
print "Portable message object...";
if ($MSGFMT =~ /./) {
for (<*.po>) {
my ($po) = /(.*)\.po$/;
print " $po";
$install .= " @-\$(MKPATH) \$(datadir)/locale/$po/LC_MESSAGES\n".
" -\$(MSGFMT) -o \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo $po.po\n".
" @-\$(CHMOD) 644 \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
$uninstall .= " \$(RM_F) \$(datadir)/locale/$po/LC_MESSAGES/gimp-perl.mo\n";
$updatepo .= " msgmerge -w 83 $po.po gimp-perl.pot >$po.po~ && mv $po.po~ $po.po\n";
}
} else {
print " skipped";
}
print "\n";
WriteMakefile(
'macro' => \%cfg,
'realclean' => { FILES => "gimp-perl.pot" },
'clean' => { FILES => "*.mo" },
);
sub MY::postamble {
<<XXX
prefix = $prefix
datadir = $datadir
all :: update-pot
update-po: update-pot
$updatepo
update-pot: ./update.sh
./update.sh
install :: install-po
uninstall :: uninstall-po
install-po ::
$install
uninstall-po ::
$uninstall
XXX
}

8
plug-ins/perl/po/update.sh
View File

@ -3,11 +3,5 @@
cd ..
test -f MANIFEST || exec echo "must be started in plug-ins/perl/po"
./pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` Perl-Server |
msgmerge -w 83 po/gimp-perl.pot - >gimp-perl.pot~ &&
mv gimp-perl.pot~ po/gimp-perl.pot
#for po in po/*.po; do
# msgmerge -w 83 $po po/gimp-perl.pot >$po~ && mv $po~ $po
#done
./pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` Perl-Server > po/gimp-perl.pot

4
plug-ins/perl/scm2scm
View File

@ -110,12 +110,12 @@ sub plug_in_constant {
\&drop_1st
]
],
'api2' => [[
'api2' =>
[
[
"^(gimp-image-disable-undo|gimp-image-enable-undo)\$",
\&swap_last_two
}
]
],
'1.1' => ['nice','api1','api2'],
'1.2' => ['nice','api1','api2'],