mirror of https://github.com/GNOME/gimp.git
see plug-ins/perl/Changes
This commit is contained in:
Marc Lehmann
parent
e05e46dfed
commit
682181149c
|
|
@ -200,9 +200,9 @@ autoconf:
|
|||
|
||||
# merge messages into potfile
|
||||
msgmerge:
|
||||
etc/pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` | \\
|
||||
msgmerge -w 83 etc/po/gimp-perl.pot - >gimp-perl.pot~ && \\
|
||||
mv gimp-perl.pot~ etc/po/gimp-perl.pot
|
||||
pxgettext `find . -name '*.pm' -o -name '*.xs' -o -path './examples/*'` | \\
|
||||
msgmerge -w 83 po/gimp-perl.pot - >gimp-perl.pot~ && \\
|
||||
mv gimp-perl.pot~ po/gimp-perl.pot
|
||||
";
|
||||
}
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,21 @@
|
|||
/* Define if you have the ANSI C header files. */
|
||||
#undef STDC_HEADERS
|
||||
|
||||
/* Define if you have the vsnprintf function. */
|
||||
#undef HAVE_VSNPRINTF
|
||||
|
||||
/* Define if you have the <libgimp/gimp.h> header file. */
|
||||
#undef HAVE_LIBGIMP_GIMP_H
|
||||
|
||||
/* Define if you have the glib library (-lglib). */
|
||||
#undef HAVE_LIBGLIB
|
||||
|
||||
/* Define if you don't have gimp_get_data_size. */
|
||||
#undef HAVE_GET_DATA_SIZE
|
||||
|
||||
/* Define if we have DIVIDE_MODE. */
|
||||
#undef HAVE_DIVIDE_MODE
|
||||
|
||||
/* Define if we have _exit(2). */
|
||||
#undef HAVE__EXIT
|
||||
|
||||
|
|
@ -0,0 +1,376 @@
|
|||
dnl aclocal.m4 generated automatically by aclocal 1.4
|
||||
|
||||
dnl Copyright (C) 1994, 1995-8, 1999 Free Software Foundation, Inc.
|
||||
dnl This file is free software; the Free Software Foundation
|
||||
dnl gives unlimited permission to copy and/or distribute it,
|
||||
dnl with or without modifications, as long as this notice is preserved.
|
||||
|
||||
dnl This program is distributed in the hope that it will be useful,
|
||||
dnl but WITHOUT ANY WARRANTY, to the extent permitted by law; without
|
||||
dnl even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||
dnl PARTICULAR PURPOSE.
|
||||
|
||||
# Configure paths for GIMP
|
||||
# Manish Singh 98-6-11
|
||||
# Shamelessly stolen from Owen Taylor
|
||||
|
||||
dnl AM_PATH_GIMP([MINIMUM-VERSION, [ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND]]])
|
||||
dnl Test for GIMP, and define GIMP_CFLAGS and GIMP_LIBS
|
||||
dnl
|
||||
AC_DEFUN(AM_PATH_GIMP,
|
||||
[dnl
|
||||
dnl Get the cflags and libraries from the gimptool script
|
||||
dnl
|
||||
AC_ARG_WITH(gimp-prefix,[ --with-gimp-prefix=PFX Prefix where GIMP is installed (optional)],
|
||||
gimptool_prefix="$withval", gimptool_prefix="")
|
||||
AC_ARG_WITH(gimp-exec-prefix,[ --with-gimp-exec-prefix=PFX Exec prefix where GIMP is installed (optional)],
|
||||
gimptool_exec_prefix="$withval", gimptool_exec_prefix="")
|
||||
AC_ARG_ENABLE(gimptest, [ --disable-gimptest Do not try to compile and run a test GIMP program],
|
||||
, enable_gimptest=yes)
|
||||
|
||||
if test x$gimptool_exec_prefix != x ; then
|
||||
gimptool_args="$gimptool_args --exec-prefix=$gimptool_exec_prefix"
|
||||
if test x${GIMPTOOL+set} != xset ; then
|
||||
GIMPTOOL=$gimptool_exec_prefix/bin/gimptool
|
||||
fi
|
||||
fi
|
||||
if test x$gimptool_prefix != x ; then
|
||||
gimptool_args="$gimptool_args --prefix=$gimptool_prefix"
|
||||
if test x${GIMPTOOL+set} != xset ; then
|
||||
GIMPTOOL=$gimptool_prefix/bin/gimptool
|
||||
fi
|
||||
fi
|
||||
|
||||
AC_PATH_PROG(GIMPTOOL, gimptool, no)
|
||||
min_gimp_version=ifelse([$1], ,1.0.0,$1)
|
||||
AC_MSG_CHECKING(for GIMP - version >= $min_gimp_version)
|
||||
no_gimp=""
|
||||
if test "$GIMPTOOL" = "no" ; then
|
||||
no_gimp=yes
|
||||
else
|
||||
GIMP_CFLAGS=`$GIMPTOOL $gimptool_args --cflags`
|
||||
GIMP_LIBS=`$GIMPTOOL $gimptool_args --libs`
|
||||
|
||||
GIMP_CFLAGS_NOUI=`$GIMPTOOL $gimptool_args --cflags-noui`
|
||||
noui_test=`echo $GIMP_CFLAGS_NOUI | sed 's/^\(Usage\).*/\1/'`
|
||||
if test "$noui_test" = "Usage" ; then
|
||||
GIMP_CFLAGS_NOUI=$GIMP_CFLAGS
|
||||
GIMP_LIBS_NOUI=$GIMP_LIBS
|
||||
else
|
||||
GIMP_LIBS_NOUI=`$GIMPTOOL $gimptool_args --libs-noui`
|
||||
fi
|
||||
|
||||
gimptool_major_version=`$GIMPTOOL $gimptool_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
|
||||
gimptool_minor_version=`$GIMPTOOL $gimptool_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
|
||||
gimptool_micro_version=`$GIMPTOOL $gimptool_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
|
||||
if test "x$enable_gimptest" = "xyes" ; then
|
||||
ac_save_CFLAGS="$CFLAGS"
|
||||
ac_save_LIBS="$LIBS"
|
||||
CFLAGS="$CFLAGS $GIMP_CFLAGS"
|
||||
LIBS="$LIBS $GIMP_LIBS"
|
||||
dnl
|
||||
dnl Now check if the installed GIMP is sufficiently new. (Also sanity
|
||||
dnl checks the results of gimptool to some extent
|
||||
dnl
|
||||
rm -f conf.gimptest
|
||||
AC_TRY_RUN([
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
#include <libgimp/gimp.h>
|
||||
|
||||
GPlugInInfo PLUG_IN_INFO =
|
||||
{
|
||||
NULL, /* init_proc */
|
||||
NULL, /* quit_proc */
|
||||
NULL, /* query_proc */
|
||||
NULL /* run_proc */
|
||||
};
|
||||
|
||||
int main ()
|
||||
{
|
||||
int major, minor, micro;
|
||||
char *tmp_version;
|
||||
|
||||
system ("touch conf.gimptest");
|
||||
|
||||
/* HP/UX 9 (%@#!) writes to sscanf strings */
|
||||
tmp_version = g_strdup("$min_gimp_version");
|
||||
if (sscanf(tmp_version, "%d.%d.%d", &major, &minor, µ) != 3) {
|
||||
printf("%s, bad version string\n", "$min_gimp_version");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if (($gimptool_major_version > major) ||
|
||||
(($gimptool_major_version == major) && ($gimptool_minor_version > minor)) ||
|
||||
(($gimptool_major_version == major) && ($gimptool_minor_version == minor) && ($gimptool_micro_version >= micro)))
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
printf("\n*** 'gimptool --version' returned %d.%d.%d, but the minimum version\n", $gimptool_major_version, $gimptool_minor_version, $gimptool_micro_version);
|
||||
printf("*** of GIMP required is %d.%d.%d. If gimptool is correct, then it is\n", major, minor, micro);
|
||||
printf("*** best to upgrade to the required version.\n");
|
||||
printf("*** If gimptool was wrong, set the environment variable GIMPTOOL\n");
|
||||
printf("*** to point to the correct copy of gimptool, and remove the file\n");
|
||||
printf("*** config.cache before re-running configure\n");
|
||||
return 1;
|
||||
}
|
||||
}
|
||||
|
||||
],, no_gimp=yes,[echo $ac_n "cross compiling; assumed OK... $ac_c"])
|
||||
CFLAGS="$ac_save_CFLAGS"
|
||||
LIBS="$ac_save_LIBS"
|
||||
fi
|
||||
fi
|
||||
if test "x$no_gimp" = x ; then
|
||||
AC_MSG_RESULT(yes)
|
||||
ifelse([$2], , :, [$2])
|
||||
else
|
||||
AC_MSG_RESULT(no)
|
||||
if test "$GIMPTOOL" = "no" ; then
|
||||
echo "*** The gimptool script installed by GIMP could not be found"
|
||||
echo "*** If GIMP was installed in PREFIX, make sure PREFIX/bin is in"
|
||||
echo "*** your path, or set the GIMPTOOL environment variable to the"
|
||||
echo "*** full path to gimptool."
|
||||
else
|
||||
if test -f conf.gimptest ; then
|
||||
:
|
||||
else
|
||||
echo "*** Could not run GIMP test program, checking why..."
|
||||
CFLAGS="$CFLAGS $GIMP_CFLAGS"
|
||||
LIBS="$LIBS $GIMP_LIBS"
|
||||
AC_TRY_LINK([
|
||||
#include <stdio.h>
|
||||
#include <libgimp/gimp.h>
|
||||
], [ return 0; ],
|
||||
[ echo "*** The test program compiled, but did not run. This usually means"
|
||||
echo "*** that the run-time linker is not finding GIMP or finding the wrong"
|
||||
echo "*** version of GIMP. If it is not finding GIMP, you'll need to set your"
|
||||
echo "*** LD_LIBRARY_PATH environment variable, or edit /etc/ld.so.conf to point"
|
||||
echo "*** to the installed location Also, make sure you have run ldconfig if that"
|
||||
echo "*** is required on your system"
|
||||
echo "***"
|
||||
echo "*** If you have an old version installed, it is best to remove it, although"
|
||||
echo "*** you may also be able to get things to work by modifying LD_LIBRARY_PATH"],
|
||||
[ echo "*** The test program failed to compile or link. See the file config.log for the"
|
||||
echo "*** exact error that occured. This usually means GIMP was incorrectly installed"
|
||||
echo "*** or that you have moved GIMP since it was installed. In the latter case, you"
|
||||
echo "*** may want to edit the gimptool script: $GIMPTOOL" ])
|
||||
CFLAGS="$ac_save_CFLAGS"
|
||||
LIBS="$ac_save_LIBS"
|
||||
fi
|
||||
fi
|
||||
GIMP_CFLAGS=""
|
||||
GIMP_LIBS=""
|
||||
GIMP_CFLAGS_NOUI=""
|
||||
GIMP_LIBS_NOUI=""
|
||||
ifelse([$3], , :, [$3])
|
||||
fi
|
||||
AC_SUBST(GIMP_CFLAGS)
|
||||
AC_SUBST(GIMP_LIBS)
|
||||
AC_SUBST(GIMP_CFLAGS_NOUI)
|
||||
AC_SUBST(GIMP_LIBS_NOUI)
|
||||
rm -f conf.gimptest
|
||||
])
|
||||
|
||||
# Configure paths for GLIB
|
||||
# Owen Taylor 97-11-3
|
||||
|
||||
dnl AM_PATH_GLIB([MINIMUM-VERSION, [ACTION-IF-FOUND [, ACTION-IF-NOT-FOUND [, MODULES]]]])
|
||||
dnl Test for GLIB, and define GLIB_CFLAGS and GLIB_LIBS, if "gmodule" or
|
||||
dnl gthread is specified in MODULES, pass to glib-config
|
||||
dnl
|
||||
AC_DEFUN(AM_PATH_GLIB,
|
||||
[dnl
|
||||
dnl Get the cflags and libraries from the glib-config script
|
||||
dnl
|
||||
AC_ARG_WITH(glib-prefix,[ --with-glib-prefix=PFX Prefix where GLIB is installed (optional)],
|
||||
glib_config_prefix="$withval", glib_config_prefix="")
|
||||
AC_ARG_WITH(glib-exec-prefix,[ --with-glib-exec-prefix=PFX Exec prefix where GLIB is installed (optional)],
|
||||
glib_config_exec_prefix="$withval", glib_config_exec_prefix="")
|
||||
AC_ARG_ENABLE(glibtest, [ --disable-glibtest Do not try to compile and run a test GLIB program],
|
||||
, enable_glibtest=yes)
|
||||
|
||||
if test x$glib_config_exec_prefix != x ; then
|
||||
glib_config_args="$glib_config_args --exec-prefix=$glib_config_exec_prefix"
|
||||
if test x${GLIB_CONFIG+set} != xset ; then
|
||||
GLIB_CONFIG=$glib_config_exec_prefix/bin/glib-config
|
||||
fi
|
||||
fi
|
||||
if test x$glib_config_prefix != x ; then
|
||||
glib_config_args="$glib_config_args --prefix=$glib_config_prefix"
|
||||
if test x${GLIB_CONFIG+set} != xset ; then
|
||||
GLIB_CONFIG=$glib_config_prefix/bin/glib-config
|
||||
fi
|
||||
fi
|
||||
|
||||
for module in . $4
|
||||
do
|
||||
case "$module" in
|
||||
gmodule)
|
||||
glib_config_args="$glib_config_args gmodule"
|
||||
;;
|
||||
gthread)
|
||||
glib_config_args="$glib_config_args gthread"
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
AC_PATH_PROG(GLIB_CONFIG, glib-config, no)
|
||||
min_glib_version=ifelse([$1], ,0.99.7,$1)
|
||||
AC_MSG_CHECKING(for GLIB - version >= $min_glib_version)
|
||||
no_glib=""
|
||||
if test "$GLIB_CONFIG" = "no" ; then
|
||||
no_glib=yes
|
||||
else
|
||||
GLIB_CFLAGS=`$GLIB_CONFIG $glib_config_args --cflags`
|
||||
GLIB_LIBS=`$GLIB_CONFIG $glib_config_args --libs`
|
||||
glib_config_major_version=`$GLIB_CONFIG $glib_config_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\1/'`
|
||||
glib_config_minor_version=`$GLIB_CONFIG $glib_config_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\2/'`
|
||||
glib_config_micro_version=`$GLIB_CONFIG $glib_config_args --version | \
|
||||
sed 's/\([[0-9]]*\).\([[0-9]]*\).\([[0-9]]*\)/\3/'`
|
||||
if test "x$enable_glibtest" = "xyes" ; then
|
||||
ac_save_CFLAGS="$CFLAGS"
|
||||
ac_save_LIBS="$LIBS"
|
||||
CFLAGS="$CFLAGS $GLIB_CFLAGS"
|
||||
LIBS="$GLIB_LIBS $LIBS"
|
||||
dnl
|
||||
dnl Now check if the installed GLIB is sufficiently new. (Also sanity
|
||||
dnl checks the results of glib-config to some extent
|
||||
dnl
|
||||
rm -f conf.glibtest
|
||||
AC_TRY_RUN([
|
||||
#include <glib.h>
|
||||
#include <stdio.h>
|
||||
#include <stdlib.h>
|
||||
|
||||
int
|
||||
main ()
|
||||
{
|
||||
int major, minor, micro;
|
||||
char *tmp_version;
|
||||
|
||||
system ("touch conf.glibtest");
|
||||
|
||||
/* HP/UX 9 (%@#!) writes to sscanf strings */
|
||||
tmp_version = g_strdup("$min_glib_version");
|
||||
if (sscanf(tmp_version, "%d.%d.%d", &major, &minor, µ) != 3) {
|
||||
printf("%s, bad version string\n", "$min_glib_version");
|
||||
exit(1);
|
||||
}
|
||||
|
||||
if ((glib_major_version != $glib_config_major_version) ||
|
||||
(glib_minor_version != $glib_config_minor_version) ||
|
||||
(glib_micro_version != $glib_config_micro_version))
|
||||
{
|
||||
printf("\n*** 'glib-config --version' returned %d.%d.%d, but GLIB (%d.%d.%d)\n",
|
||||
$glib_config_major_version, $glib_config_minor_version, $glib_config_micro_version,
|
||||
glib_major_version, glib_minor_version, glib_micro_version);
|
||||
printf ("*** was found! If glib-config was correct, then it is best\n");
|
||||
printf ("*** to remove the old version of GLIB. You may also be able to fix the error\n");
|
||||
printf("*** by modifying your LD_LIBRARY_PATH enviroment variable, or by editing\n");
|
||||
printf("*** /etc/ld.so.conf. Make sure you have run ldconfig if that is\n");
|
||||
printf("*** required on your system.\n");
|
||||
printf("*** If glib-config was wrong, set the environment variable GLIB_CONFIG\n");
|
||||
printf("*** to point to the correct copy of glib-config, and remove the file config.cache\n");
|
||||
printf("*** before re-running configure\n");
|
||||
}
|
||||
else if ((glib_major_version != GLIB_MAJOR_VERSION) ||
|
||||
(glib_minor_version != GLIB_MINOR_VERSION) ||
|
||||
(glib_micro_version != GLIB_MICRO_VERSION))
|
||||
{
|
||||
printf("*** GLIB header files (version %d.%d.%d) do not match\n",
|
||||
GLIB_MAJOR_VERSION, GLIB_MINOR_VERSION, GLIB_MICRO_VERSION);
|
||||
printf("*** library (version %d.%d.%d)\n",
|
||||
glib_major_version, glib_minor_version, glib_micro_version);
|
||||
}
|
||||
else
|
||||
{
|
||||
if ((glib_major_version > major) ||
|
||||
((glib_major_version == major) && (glib_minor_version > minor)) ||
|
||||
((glib_major_version == major) && (glib_minor_version == minor) && (glib_micro_version >= micro)))
|
||||
{
|
||||
return 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
printf("\n*** An old version of GLIB (%d.%d.%d) was found.\n",
|
||||
glib_major_version, glib_minor_version, glib_micro_version);
|
||||
printf("*** You need a version of GLIB newer than %d.%d.%d. The latest version of\n",
|
||||
major, minor, micro);
|
||||
printf("*** GLIB is always available from ftp://ftp.gtk.org.\n");
|
||||
printf("***\n");
|
||||
printf("*** If you have already installed a sufficiently new version, this error\n");
|
||||
printf("*** probably means that the wrong copy of the glib-config shell script is\n");
|
||||
printf("*** being found. The easiest way to fix this is to remove the old version\n");
|
||||
printf("*** of GLIB, but you can also set the GLIB_CONFIG environment to point to the\n");
|
||||
printf("*** correct copy of glib-config. (In this case, you will have to\n");
|
||||
printf("*** modify your LD_LIBRARY_PATH enviroment variable, or edit /etc/ld.so.conf\n");
|
||||
printf("*** so that the correct libraries are found at run-time))\n");
|
||||
}
|
||||
}
|
||||
return 1;
|
||||
}
|
||||
],, no_glib=yes,[echo $ac_n "cross compiling; assumed OK... $ac_c"])
|
||||
CFLAGS="$ac_save_CFLAGS"
|
||||
LIBS="$ac_save_LIBS"
|
||||
fi
|
||||
fi
|
||||
if test "x$no_glib" = x ; then
|
||||
AC_MSG_RESULT(yes)
|
||||
ifelse([$2], , :, [$2])
|
||||
else
|
||||
AC_MSG_RESULT(no)
|
||||
if test "$GLIB_CONFIG" = "no" ; then
|
||||
echo "*** The glib-config script installed by GLIB could not be found"
|
||||
echo "*** If GLIB was installed in PREFIX, make sure PREFIX/bin is in"
|
||||
echo "*** your path, or set the GLIB_CONFIG environment variable to the"
|
||||
echo "*** full path to glib-config."
|
||||
else
|
||||
if test -f conf.glibtest ; then
|
||||
:
|
||||
else
|
||||
echo "*** Could not run GLIB test program, checking why..."
|
||||
CFLAGS="$CFLAGS $GLIB_CFLAGS"
|
||||
LIBS="$LIBS $GLIB_LIBS"
|
||||
AC_TRY_LINK([
|
||||
#include <glib.h>
|
||||
#include <stdio.h>
|
||||
], [ return ((glib_major_version) || (glib_minor_version) || (glib_micro_version)); ],
|
||||
[ echo "*** The test program compiled, but did not run. This usually means"
|
||||
echo "*** that the run-time linker is not finding GLIB or finding the wrong"
|
||||
echo "*** version of GLIB. If it is not finding GLIB, you'll need to set your"
|
||||
echo "*** LD_LIBRARY_PATH environment variable, or edit /etc/ld.so.conf to point"
|
||||
echo "*** to the installed location Also, make sure you have run ldconfig if that"
|
||||
echo "*** is required on your system"
|
||||
echo "***"
|
||||
echo "*** If you have an old version installed, it is best to remove it, although"
|
||||
echo "*** you may also be able to get things to work by modifying LD_LIBRARY_PATH"
|
||||
echo "***"
|
||||
echo "*** If you have a RedHat 5.0 system, you should remove the GTK package that"
|
||||
echo "*** came with the system with the command"
|
||||
echo "***"
|
||||
echo "*** rpm --erase --nodeps gtk gtk-devel" ],
|
||||
[ echo "*** The test program failed to compile or link. See the file config.log for the"
|
||||
echo "*** exact error that occured. This usually means GLIB was incorrectly installed"
|
||||
echo "*** or that you have moved GLIB since it was installed. In the latter case, you"
|
||||
echo "*** may want to edit the glib-config script: $GLIB_CONFIG" ])
|
||||
CFLAGS="$ac_save_CFLAGS"
|
||||
LIBS="$ac_save_LIBS"
|
||||
fi
|
||||
fi
|
||||
GLIB_CFLAGS=""
|
||||
GLIB_LIBS=""
|
||||
ifelse([$3], , :, [$3])
|
||||
fi
|
||||
AC_SUBST(GLIB_CFLAGS)
|
||||
AC_SUBST(GLIB_LIBS)
|
||||
rm -f conf.glibtest
|
||||
])
|
||||
|
||||
|
|
@ -0,0 +1,22 @@
|
|||
/* config.h.in. Generated automatically from configure.in by autoheader. */
|
||||
|
||||
/* Define if you have the vsnprintf function. */
|
||||
#undef HAVE_VSNPRINTF
|
||||
|
||||
/* Define if we have DIVIDE_MODE. */
|
||||
#undef HAVE_DIVIDE_MODE
|
||||
|
||||
/* Define if you have the _exit function. */
|
||||
#undef HAVE__EXIT
|
||||
|
||||
/* Define if you have the vsnprintf function. */
|
||||
#undef HAVE_VSNPRINTF
|
||||
|
||||
/* Define if you have the <libgimp/gimpmodule.h> header file. */
|
||||
#undef HAVE_LIBGIMP_GIMPMODULE_H
|
||||
|
||||
/* Define if you have the <libintl.h> header file. */
|
||||
#undef HAVE_LIBINTL_H
|
||||
|
||||
/* Define if you have the <unistd.h> header file. */
|
||||
#undef HAVE_UNISTD_H
|
||||
|
|
@ -0,0 +1,146 @@
|
|||
# this is ugly, but it makes Gimp installable from within CPAN
|
||||
|
||||
$topdir=".";
|
||||
|
||||
$topdir.="/.." while ! -f "$topdir/MANIFEST";
|
||||
|
||||
$^W=0;
|
||||
|
||||
%cfg = (
|
||||
_CPPFLAGS => q[@CPPFLAGS@],
|
||||
_CFLAGS => q[@CFLAGS@],
|
||||
_LDFLAGS => q[@LDFLAGS@],
|
||||
|
||||
prefix => q[@prefix@],
|
||||
exec_prefix => q[@exec_prefix@],
|
||||
libdir => q[@libdir@],
|
||||
bindir => q[@bindir@],
|
||||
|
||||
_PERL => q[@PERL@],
|
||||
GIMP => q[@GIMP@],
|
||||
|
||||
GIMPTOOL => q[@GIMPTOOL@],
|
||||
_GIMP_INC => q[@GIMP_CFLAGS@],
|
||||
_GIMP_INC_NOUI => q[@GIMP_CFLAGS_NOUI@],
|
||||
_GIMP_LIBS => q[@GIMP_LIBS@],
|
||||
_GIMP_LIBS_NOUI => q[@GIMP_LIBS_NOUI@],
|
||||
|
||||
GLIB_CFLAGS => q[@GLIB_CFLAGS@],
|
||||
GLIB_LIBS => q[@GLIB_LIBS@],
|
||||
|
||||
INSTALL => q[@INSTALL@],
|
||||
INSTALL_PROGRAM => q[@INSTALL_PROGRAM@],
|
||||
gimpplugindir => q[@gimpplugindir@],
|
||||
|
||||
_EXTENSIVE_TESTS => q[@EXTENSIVE_TESTS@],
|
||||
|
||||
IN_GIMP => q[@IN_GIMP@],
|
||||
top_builddir => q[@top_builddir@],
|
||||
|
||||
pdl_inc => '',
|
||||
pdl_typemaps => '',
|
||||
INC1 => '',
|
||||
DEFINE1 => '',
|
||||
);
|
||||
|
||||
sub expand {
|
||||
my $cfg = shift;
|
||||
my $count = 5;
|
||||
while($cfg=~/\$\{/ and $count--) {
|
||||
while(($k,$v)=each %cfg) {
|
||||
$cfg=~s/\$\{$k\}/$v/g;
|
||||
}
|
||||
}
|
||||
$cfg;
|
||||
}
|
||||
|
||||
while (($k,$v)=each(%cfg)) {
|
||||
$k=~s/^_//;
|
||||
$$k=$v;
|
||||
}
|
||||
|
||||
$GIMPTOOL = expand($GIMPTOOL);
|
||||
|
||||
if ($IN_GIMP) {
|
||||
$GIMP = $bindir."/gimp" if $IN_GIMP;
|
||||
$GIMP_PREFIX=expand($prefix);
|
||||
} else {
|
||||
chomp ($GIMP_PREFIX = `$GIMPTOOL --prefix`);
|
||||
$gimpplugindir = `$GIMPTOOL -n --install-admin-bin /bin/sh`;
|
||||
$gimpplugindir =~ s{^.*\s(.*?)(?:/+bin/sh)\r?\n?$}{$1} &&
|
||||
$gimpplugindir =~ s{/plug-ins$}{} or die "\nFATAL: unable to deduce plugindir from gimptool script\n\n";
|
||||
$GIMP = expand($GIMP);
|
||||
}
|
||||
|
||||
$cfg{GIMP_PREFIX} = $GIMP_PREFIX;
|
||||
|
||||
$GIMP_INC =~ s%\$topdir%$topdir%g;
|
||||
$GIMP_INC_NOUI =~ s%\$topdir%$topdir%g;
|
||||
$GIMP_LIBS =~ s%\$topdir%$topdir%g;
|
||||
$GIMP_LIBS_NOUI =~ s%\$topdir%$topdir%g;
|
||||
|
||||
# $...1 variables should be put in front of the corresponding MakeMaker values.
|
||||
$INC1 = "-I$topdir";
|
||||
$DEFINE1 = $IN_GIMP ? "-DIN_GIMP" : "";
|
||||
|
||||
eval "use PDL";
|
||||
if (!$@) {
|
||||
require PDL::Version;
|
||||
if ($PDL::Version::VERSION > 1.99) {
|
||||
require PDL::Core::Dev;
|
||||
if (!$@) {
|
||||
$PDL=1;
|
||||
} else {
|
||||
$do_config_msg && print <<EOF;
|
||||
|
||||
ERROR: PDL::Core::Dev module not found ($@),
|
||||
this is an error in your PDL installation.
|
||||
|
||||
EOF
|
||||
}
|
||||
} else {
|
||||
$do_config_msg && print <<EOF;
|
||||
|
||||
WARNING: PDL version $PDL::Version::VERSION is installed. Gimp was only
|
||||
tested with 2.0 and higher. In case of problems its advisable to
|
||||
upgrade PDL to at least version 2.
|
||||
|
||||
EOF
|
||||
}
|
||||
} else {
|
||||
$do_config_msg && print <<EOF;
|
||||
|
||||
WARNING: unable to use PDL (the perl data language). This means that
|
||||
normal pixel access is non-functional. Unless you plan to use
|
||||
Tile/PixelRgn functions together with PDL, this is harmless. The
|
||||
plug-ins using PDL, however, will NOT WORK and you can NO LONGER
|
||||
install PDL later. You can get PDL from any CPAN mirror.
|
||||
|
||||
EOF
|
||||
}
|
||||
|
||||
$do_config_msg && print "checking for PDL support... ", $PDL ? "yes":"no","\n";
|
||||
if ($PDL) {
|
||||
$do_config_msg && print "checking for PDL include path... ",&PDL::Core::Dev::PDL_INCLUDE,"\n";
|
||||
$do_config_msg && print "checking for PDL typemap... ",&PDL::Core::Dev::PDL_TYPEMAP,"\n";
|
||||
|
||||
$pdl_inc = $pdl_inc = &PDL::Core::Dev::PDL_INCLUDE;
|
||||
$pdl_typemaps = "@{[@pdl_typemaps = &PDL::Core::Dev::PDL_TYPEMAP]}";
|
||||
$DEFINE1 .= " -DHAVE_PDL=1";
|
||||
} else {
|
||||
@pdl_typemaps = "$topdir/typemap.pdl";
|
||||
}
|
||||
|
||||
for(keys %cfg) {
|
||||
($k=$_)=~s/^_//;
|
||||
$cfg{$_}=$$k;
|
||||
}
|
||||
|
||||
sub MY::makefile {
|
||||
package MY;
|
||||
my $t = shift->SUPER::makefile(@_);
|
||||
$t =~ s/^ false$/ true/m;
|
||||
$t;
|
||||
}
|
||||
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,32 @@
|
|||
AC_CHECK_FUNCS(vsnprintf,AC_DEFINE(HAVE_VSNPRINTF),[
|
||||
AC_MSG_WARN(vsnprintf not found.. I hope you are using gcc...)
|
||||
])
|
||||
|
||||
dnl disable some warnings I don't want to see
|
||||
if test "x$GCC" = xyes; then
|
||||
nowarn="-Wno-parentheses -Wno-unused -Wno-uninitialized"
|
||||
GIMP_CFLAGS="$GIMP_CFLAGS $nowarn"
|
||||
GIMP_CFLAGS_NOUI="$GIMP_CFLAGS"
|
||||
fi
|
||||
|
||||
AC_SUBST(EXTENSIVE_TESTS)dnl from Makefile.PL
|
||||
|
||||
AC_SUBST(CPPFLAGS)
|
||||
AC_SUBST(CFLAGS)
|
||||
AC_SUBST(LDFLAGS)
|
||||
AC_SUBST(prefix)
|
||||
|
||||
AC_SUBST(IN_GIMP)
|
||||
|
||||
AC_SUBST(GIMP_CFLAGS)
|
||||
AC_SUBST(GIMP_CFLAGS_NOUI)
|
||||
AC_SUBST(GIMP_LIBS)
|
||||
AC_SUBST(GIMP_LIBS_NOUI)
|
||||
AC_SUBST(PERL)
|
||||
AC_SUBST(GIMP)
|
||||
AC_SUBST(GIMPTOOL)
|
||||
AC_SUBST(GIMP_CFLAGS)
|
||||
AC_SUBST(GIMP_LIBS)
|
||||
AC_CHECK_FUNCS(_exit)
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,57 @@
|
|||
AC_INIT(config.pl.in)
|
||||
|
||||
if test -z "$IN_GIMP"; then
|
||||
echo
|
||||
echo "*** WOAH there! ***"
|
||||
echo Please do NOT call configure directly, rather run
|
||||
echo perl Makefile.PL
|
||||
echo as you would do with any other perl extension...
|
||||
echo
|
||||
exit 1
|
||||
fi
|
||||
|
||||
AC_PREFIX_DEFAULT($prefix)dnl from Makefile.PL
|
||||
|
||||
AC_CONFIG_HEADER(config.h)
|
||||
|
||||
AC_ARG_WITH(cflags, [ --with-cflags=FLAGS Set CFLAGS to FLAGS (optional)],
|
||||
CFLAGS="$with_cflags")
|
||||
|
||||
AC_ARG_WITH(ldflags, [ --with-ldflags=FLAGS Set LDFLAGS to FLAGS (optional)],
|
||||
LDFLAGS="$with_ldflags")
|
||||
|
||||
AC_ARG_WITH(includes,[ --with-includes=DIR Additionally search for includes in dir DIR (optional)],
|
||||
CPPFLAGS="$CPPFLAGS -I$with_includes")
|
||||
|
||||
AC_ARG_WITH(libs, [ --with-libs=DIR Additionally search for libraries in dir in DIR (optional)],
|
||||
LIBS="$LIBS -L$with_libs")
|
||||
|
||||
AC_PATH_PROGS(GIMP,gimp)
|
||||
|
||||
AM_PATH_GIMP(1.0.4,, AC_MSG_ERROR(
|
||||
** unable to find gimp, make sure it's in your path (version 1.0.4+ required!)
|
||||
** You can get the gimp from ftp://ftp.gimp.org/pub/gimp.
|
||||
))
|
||||
|
||||
AM_PATH_GLIB(1.2.0,, AC_MSG_ERROR(
|
||||
** unable to find glib, make sure it's in your path (version 1.2.0+ required!)
|
||||
** You can get glib from ftp://ftp.gtk.org/pub/glib.
|
||||
))
|
||||
|
||||
ac_gimp_save_CPPFLAGS="$CPPFLAGS"
|
||||
CPPFLAGS="$CPPFLAGS $GIMP_CFLAGS"
|
||||
AC_EGREP_CPP(DIVIDE_MODE,[#include <libgimp/gimp.h>],AC_DEFINE(HAVE_DIVIDE_MODE))
|
||||
AC_CHECK_HEADERS(libgimp/gimpmodule.h libintl.h)
|
||||
CPPFLAGS="$ac_gimp_save_CPPFLAGS"
|
||||
|
||||
AC_CHECK_HEADERS(unistd.h)
|
||||
|
||||
CONFIG_H="config.h"
|
||||
|
||||
sinclude(configure.frag)
|
||||
|
||||
AC_OUTPUT(config.pl)
|
||||
|
||||
echo "now invoking perl to complete the configuration..."
|
||||
exec $PERL $MAKEFILE_PL --writemakefile PREFIX="$prefix"
|
||||
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
#ifdef ENABLE_NLS
|
||||
# include <libintl.h>
|
||||
#else
|
||||
# define gettext(s) (s)
|
||||
# define textdomain(d) (d)
|
||||
# define bindtextdomain(d,p) (p)
|
||||
#endif
|
||||
|
||||
#define __(s) gettext (s)
|
||||
#define N_(s) (s)
|
||||
|
|
@ -0,0 +1,356 @@
|
|||
# SOME DESCRIPTIVE TITLE.
|
||||
# Copyright (C) YEAR Free Software Foundation, Inc.
|
||||
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
|
||||
#
|
||||
#, fuzzy
|
||||
msgid ""
|
||||
msgstr ""
|
||||
"Project-Id-Version: gimp-perl 1\n"
|
||||
"POT-Creation-Date: 1999-09-12 17:58+0200\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
||||
"Language-Team: LANGUAGE <LL@li.org>\n"
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=CHARSET\n"
|
||||
"Content-Transfer-Encoding: ENCODING\n"
|
||||
|
||||
msgid "too many arguments"
|
||||
msgstr ""
|
||||
|
||||
msgid "Description"
|
||||
msgstr ""
|
||||
|
||||
msgid "-*-helvetica-medium-r-normal-*-34-*-*-*-p-*-iso8859-1"
|
||||
msgstr ""
|
||||
|
||||
msgid "expected protocol version $Gimp::_PROT_VERSION, but server uses $r[0]\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "WARNING"
|
||||
msgstr ""
|
||||
|
||||
msgid "Restore values to the previous ones"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Image>/Filters"
|
||||
msgstr ""
|
||||
|
||||
msgid "FATAL: unable to create $tmp: $!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
" interface-arguments are\n"
|
||||
" -o | --output <filespec> write image to disk, don't display\n"
|
||||
" -i | --interact let the user edit the values first\n"
|
||||
" script-arguments are\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Image> plug-in called without both image and drawable arguments!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Last Modified"
|
||||
msgstr ""
|
||||
|
||||
msgid "Shortcuts"
|
||||
msgstr ""
|
||||
|
||||
msgid "Browse"
|
||||
msgstr ""
|
||||
|
||||
msgid "Reset all values to their default"
|
||||
msgstr ""
|
||||
|
||||
msgid "-*-courier-medium-r-normal--*-120-*-*-*-*-*"
|
||||
msgstr ""
|
||||
|
||||
msgid "Synopsis"
|
||||
msgstr ""
|
||||
|
||||
msgid "$_: illegal switch, try $0 --help\n"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"the gtk perl module is required to open a dialog\n"
|
||||
"window, running with default values"
|
||||
msgstr ""
|
||||
|
||||
msgid "Color"
|
||||
msgstr ""
|
||||
|
||||
msgid "Brush Selection Dialog"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Load> plug-in called without the 3 standard arguments!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "could not connect to the gimp server (make sure Net-Server is running)"
|
||||
msgstr ""
|
||||
|
||||
msgid "Font Selection Dialog ($desc)"
|
||||
msgstr ""
|
||||
|
||||
msgid "get current background colour from the gimp"
|
||||
msgstr ""
|
||||
|
||||
msgid "Pattern Selection Dialog"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Save> plug-in called without the 5 standard arguments!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to create socketpair for gimp communications: $!"
|
||||
msgstr ""
|
||||
|
||||
msgid "function '$exe' not found in this script (must be one of "
|
||||
msgstr ""
|
||||
|
||||
msgid "parameter '$entry->[1]' is not optional\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "$s: not an integer\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Previous"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to create '$fn': $!"
|
||||
msgstr ""
|
||||
|
||||
msgid "Load"
|
||||
msgstr ""
|
||||
|
||||
msgid "WARNING: $function returned something that is not an image: \"$img\"\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Command"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to read '$fn': $!"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Toolbox>/Xtns/Perl/Control Center"
|
||||
msgstr ""
|
||||
|
||||
msgid "showing only the first 150 matches (of %d)"
|
||||
msgstr ""
|
||||
|
||||
msgid "Save $name"
|
||||
msgstr ""
|
||||
|
||||
msgid "run_mode must be INTERACTIVE, NONINTERACTIVE or RUN_WITH_LAST_VALS\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "function/macro \"$name\" not found in $class"
|
||||
msgstr ""
|
||||
|
||||
msgid "Status"
|
||||
msgstr ""
|
||||
|
||||
msgid "required callback '$cb' not found\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to read temporary file $tmp: $!"
|
||||
msgstr ""
|
||||
|
||||
msgid "interface=... tag is no longer supported\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "authorization failed: $r[1]\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "PDB Explorer - the olof edition (yet still an alpha version)"
|
||||
msgstr ""
|
||||
|
||||
msgid "FATAL: Gimp::Compat version mismatch\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "use'ing Gimp::PDL is no longer necessary, please remove it!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Illegal default font description for $function: $val\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Toolbox>/Xtns"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"BLURB:\n"
|
||||
"\n"
|
||||
"$blurb\n"
|
||||
"\n"
|
||||
"HELP:\n"
|
||||
"\n"
|
||||
"$help"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"$function: calling $AUTOLOAD without specifying the :auto import tag is "
|
||||
"deprecated!\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Info"
|
||||
msgstr ""
|
||||
|
||||
msgid "Fileselector for $name"
|
||||
msgstr ""
|
||||
|
||||
msgid "Load $name"
|
||||
msgstr ""
|
||||
|
||||
msgid "xlfd_unpack: unmatched XLFD '$fontname'\n"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"$function: function name contains unusual characters, good style is to use only "
|
||||
"0-9, a-z and _"
|
||||
msgstr ""
|
||||
|
||||
msgid "Close"
|
||||
msgstr ""
|
||||
|
||||
msgid "menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!"
|
||||
msgstr ""
|
||||
|
||||
msgid "Plug-In Path"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to fork: $!"
|
||||
msgstr ""
|
||||
|
||||
msgid "register called with too many or wrong arguments\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "$_ is not a valid import tag for package $pkg"
|
||||
msgstr ""
|
||||
|
||||
msgid "Unsupported argumenttype $type"
|
||||
msgstr ""
|
||||
|
||||
msgid "get current foreground colour from the gimp"
|
||||
msgstr ""
|
||||
|
||||
msgid "trying to start gimp with options \"$opt\"\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "expected perl-server at other end of socket, got @r\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Author"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Toolbox>/Xtns/Parasite Editor"
|
||||
msgstr ""
|
||||
|
||||
msgid "<Toolbox>/Xtns/PDB Explorer"
|
||||
msgstr ""
|
||||
|
||||
msgid "Save"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"\n"
|
||||
"\n"
|
||||
"EMBEDDED POD DOCUMENTATION:\n"
|
||||
"\n"
|
||||
msgstr ""
|
||||
|
||||
msgid " matching functions"
|
||||
msgstr ""
|
||||
|
||||
msgid "More..."
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"Usage: $0 [gimp-args..] [interface-args..] [script-args..]\n"
|
||||
" gimp-arguments are\n"
|
||||
" -gimp <anything> used internally only\n"
|
||||
" -h | -help | --help | -? print some help\n"
|
||||
" -v | --verbose be more verbose in what you do\n"
|
||||
" --host|--tcp HOST[:PORT] connect to HOST (optionally using PORT)\n"
|
||||
" (for more info, see Gimp::Net(3))\n"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"the gtk perl module is required to run\n"
|
||||
"this plug-in in interactive mode\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "interface '$interface_type' unsupported."
|
||||
msgstr ""
|
||||
|
||||
msgid "Help"
|
||||
msgstr ""
|
||||
|
||||
msgid " (press Tab to complete)"
|
||||
msgstr ""
|
||||
|
||||
msgid "function name contains dashes instead of underscores"
|
||||
msgstr ""
|
||||
|
||||
msgid "authorization ok, but: $r[1]\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Cannot call '$AUTOLOAD' at this time"
|
||||
msgstr ""
|
||||
|
||||
msgid "no font specified, using default"
|
||||
msgstr ""
|
||||
|
||||
msgid "$function: argument/return value '$p->[1]' has illegal type '$p->[0]'"
|
||||
msgstr ""
|
||||
|
||||
msgid "Defaults"
|
||||
msgstr ""
|
||||
|
||||
msgid "Edit"
|
||||
msgstr ""
|
||||
|
||||
msgid "conversion to type $pf_type2string{$type} is not yet implemented\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "text string is empty"
|
||||
msgstr ""
|
||||
|
||||
msgid "server requests authorization, but no authorization available\n"
|
||||
msgstr ""
|
||||
|
||||
msgid "Image Types"
|
||||
msgstr ""
|
||||
|
||||
msgid "$_: unknown/illegal file-save option"
|
||||
msgstr ""
|
||||
|
||||
msgid "Menu Path"
|
||||
msgstr ""
|
||||
|
||||
msgid ""
|
||||
"$function: argument name '$p->[1]' contains illegal characters, only 0-9, a-z "
|
||||
"and _ allowed"
|
||||
msgstr ""
|
||||
|
||||
msgid "Gradient Selection Dialog"
|
||||
msgstr ""
|
||||
|
||||
msgid "Function Info"
|
||||
msgstr ""
|
||||
|
||||
msgid "unable to open $rgb_db_path"
|
||||
msgstr ""
|
||||
|
||||
msgid "9x15bold"
|
||||
msgstr ""
|
||||
|
||||
msgid "Unable to grok '%s' as colour specifier"
|
||||
msgstr ""
|
||||
|
||||
msgid "OK"
|
||||
msgstr ""
|
||||
|
||||
msgid "Accelerator"
|
||||
msgstr ""
|
||||
|
||||
msgid "Cancel"
|
||||
msgstr ""
|
||||
|
||||
msgid "(none)"
|
||||
msgstr ""
|
||||
|
|
@ -0,0 +1,45 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# a lame attempt at xgettext for perl
|
||||
# line line numbers, yet
|
||||
|
||||
undef $/;
|
||||
|
||||
print <<'EOF';
|
||||
# SOME DESCRIPTIVE TITLE.
|
||||
# Copyright (C) YEAR Free Software Foundation, Inc.
|
||||
# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.
|
||||
#
|
||||
#, fuzzy
|
||||
msgid ""
|
||||
msgstr ""
|
||||
"Project-Id-Version: gimp-perl 1.14\n"
|
||||
"POT-Creation-Date: 1999-09-12 17:58+0200\n"
|
||||
"PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n"
|
||||
"Last-Translator: FULL NAME <EMAIL@ADDRESS>\n"
|
||||
"Language-Team: LANGUAGE <LL@li.org>\n"
|
||||
"MIME-Version: 1.0\n"
|
||||
"Content-Type: text/plain; charset=CHARSET\n"
|
||||
"Content-Transfer-Encoding: ENCODING\n"
|
||||
EOF
|
||||
|
||||
while(<>) {
|
||||
while (/__"((?:[^"\\]+|\\.)*)"/sg) {
|
||||
my $s = $1;
|
||||
my $e = "\n";
|
||||
if ($s =~ /\n/) {
|
||||
$e .= "msgid \"\"\n";
|
||||
for (split /\n/, $s) {
|
||||
$e .= "\"$_\\n\"\n";
|
||||
}
|
||||
} else {
|
||||
$e .= "msgid \"$s\"\n";
|
||||
}
|
||||
$e .= "msgstr \"\"\n";
|
||||
push @{$entry{$e}}, $fileposition;
|
||||
}
|
||||
}
|
||||
|
||||
print keys %entry;
|
||||
|
||||
|
||||
Loading…
Reference in New Issue