#ifdef HAVE_CONFIG_H
# include "config.h"
#endif
#include <errno.h>
#include <getopt.h>
#include <limits.h>
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#ifdef HAVE_UNISTD_H
# include <unistd.h>
#endif
#include "closeout.h"
#include "dir-list.h"
#include "error.h"
#include "xerror.h"
#include "error-progname.h"
#include "progname.h"
#include "relocatable.h"
#include "basename.h"
#include "message.h"
#include "read-po.h"
#include "xalloc.h"
#include "exit.h"
#include "full-write.h"
#include "findprog.h"
#include "pipe.h"
#include "wait-process.h"
#include "xsetenv.h"
#include "gettext.h"
#define _(str) gettext (str)
#ifndef STDOUT_FILENO
# define STDOUT_FILENO 1
#endif
static const char *sub_name;
static const char *sub_path;
static char **sub_argv;
static int sub_argc;
static int exitcode;
static const struct option long_options[] =
{
{ "directory", required_argument, NULL, 'D' },
{ "help", no_argument, NULL, 'h' },
{ "input", required_argument, NULL, 'i' },
{ "properties-input", no_argument, NULL, 'P' },
{ "stringtable-input", no_argument, NULL, CHAR_MAX + 1 },
{ "version", no_argument, NULL, 'V' },
{ NULL, 0, NULL, 0 }
};
static void usage (int status)
#if defined __GNUC__ && ((__GNUC__ == 2 && __GNUC_MINOR__ >= 5) || __GNUC__ > 2)
__attribute__ ((noreturn))
#endif
;
static void process_msgdomain_list (const msgdomain_list_ty *mdlp);
int
main (int argc, char **argv)
{
int opt;
bool do_help;
bool do_version;
const char *input_file;
msgdomain_list_ty *result;
size_t i;
set_program_name (argv[0]);
error_print_progname = maybe_print_progname;
#ifdef HAVE_SETLOCALE
setlocale (LC_ALL, "");
#endif
bindtextdomain (PACKAGE, relocate (LOCALEDIR));
textdomain (PACKAGE);
atexit (close_stdout);
do_help = false;
do_version = false;
input_file = NULL;
while ((opt = getopt_long (argc, argv, "+D:hi:PV", long_options, NULL))
!= EOF)
switch (opt)
{
case '\0':
break;
case 'D':
dir_list_append (optarg);
break;
case 'h':
do_help = true;
break;
case 'i':
if (input_file != NULL)
{
error (EXIT_SUCCESS, 0, _("at most one input file allowed"));
usage (EXIT_FAILURE);
}
input_file = optarg;
break;
case 'P':
input_syntax = syntax_properties;
break;
case 'V':
do_version = true;
break;
case CHAR_MAX + 1:
input_syntax = syntax_stringtable;
break;
default:
usage (EXIT_FAILURE);
break;
}
if (do_version)
{
printf ("%s (GNU %s) %s\n", basename (program_name), PACKAGE, VERSION);
printf (_("Copyright (C) %s Free Software Foundation, Inc.\n\
This is free software; see the source for copying conditions. There is NO\n\
warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n\
"),
"2001-2003");
printf (_("Written by %s.\n"), "Bruno Haible");
exit (EXIT_SUCCESS);
}
if (do_help)
usage (EXIT_SUCCESS);
if (optind == argc)
error (EXIT_FAILURE, 0, _("missing command name"));
sub_name = argv[optind];
sub_argc = argc - optind;
sub_argv = (char **) xmalloc ((sub_argc + 1) * sizeof (char *));
for (i = 0; i < sub_argc; i++)
sub_argv[i] = argv[optind + i];
sub_argv[i] = NULL;
if (input_file == NULL)
input_file = "-";
result = read_po_file (input_file);
if (strcmp (sub_name, "0") != 0)
{
sub_path = find_in_path (sub_name);
sub_argv[0] = (char *) sub_path;
}
exitcode = 0;
process_msgdomain_list (result);
exit (exitcode);
}
static void
usage (int status)
{
if (status != EXIT_SUCCESS)
fprintf (stderr, _("Try `%s --help' for more information.\n"),
program_name);
else
{
printf (_("\
Usage: %s [OPTION] COMMAND [COMMAND-OPTION]\n\
"), program_name);
printf ("\n");
printf (_("\
Applies a command to all translations of a translation catalog.\n\
The COMMAND can be any program that reads a translation from standard\n\
input. It is invoked once for each translation. Its output becomes\n\
msgexec's output. msgexec's return code is the maximum return code\n\
across all invocations.\n\
"));
printf ("\n");
printf (_("\
A special builtin command called '0' outputs the translation, followed by a\n\
null byte. The output of \"msgexec 0\" is suitable as input for \"xargs -0\".\n\
"));
printf ("\n");
printf (_("\
Mandatory arguments to long options are mandatory for short options too.\n"));
printf ("\n");
printf (_("\
Input file location:\n"));
printf (_("\
-i, --input=INPUTFILE input PO file\n"));
printf (_("\
-D, --directory=DIRECTORY add DIRECTORY to list for input files search\n"));
printf (_("\
If no input file is given or if it is -, standard input is read.\n"));
printf ("\n");
printf (_("\
Input file syntax:\n"));
printf (_("\
-P, --properties-input input file is in Java .properties syntax\n"));
printf (_("\
--stringtable-input input file is in NeXTstep/GNUstep .strings syntax\n"));
printf ("\n");
printf (_("\
Informative output:\n"));
printf (_("\
-h, --help display this help and exit\n"));
printf (_("\
-V, --version output version information and exit\n"));
printf ("\n");
fputs (_("Report bugs to <bug-gnu-gettext@gnu.org>.\n"),
stdout);
}
exit (status);
}
#ifdef EINTR
static inline int
nonintr_close (int fd)
{
int retval;
do
retval = close (fd);
while (retval < 0 && errno == EINTR);
return retval;
}
#define close nonintr_close
#endif
static void
process_string (const message_ty *mp, const char *str, size_t len)
{
if (strcmp (sub_name, "0") == 0)
{
if (full_write (STDOUT_FILENO, str, len + 1) < len + 1)
error (EXIT_FAILURE, errno, _("write to stdout failed"));
}
else
{
char *location;
pid_t child;
int fd[1];
int exitstatus;
xsetenv ("MSGEXEC_MSGID", mp->msgid, 1);
location = xasprintf ("%s:%ld", mp->pos.file_name,
(long) mp->pos.line_number);
xsetenv ("MSGEXEC_LOCATION", location, 1);
free (location);
child = create_pipe_out (sub_name, sub_path, sub_argv, NULL, false, true,
true, fd);
if (full_write (fd[0], str, len) < len)
error (EXIT_FAILURE, errno,
_("write to %s subprocess failed"), sub_name);
close (fd[0]);
exitstatus = wait_subprocess (child, sub_name, false, true, true);
if (exitcode < exitstatus)
exitcode = exitstatus;
}
}
static void
process_message (const message_ty *mp)
{
const char *msgstr = mp->msgstr;
size_t msgstr_len = mp->msgstr_len;
const char *p;
for (p = msgstr; p < msgstr + msgstr_len; )
{
size_t length = strlen (p);
process_string (mp, p, length);
p += length + 1;
}
}
static void
process_message_list (const message_list_ty *mlp)
{
size_t j;
for (j = 0; j < mlp->nitems; j++)
process_message (mlp->item[j]);
}
static void
process_msgdomain_list (const msgdomain_list_ty *mdlp)
{
size_t k;
for (k = 0; k < mdlp->nitems; k++)
process_message_list (mdlp->item[k]->messages);
}