/* Extracts strings from C source file to Uniforum style .po file. Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc. Written by Ulrich Drepper , April 1995. This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ #ifdef HAVE_CONFIG_H # include #endif #include #include #include #include #include #include #include #include #include #include #include #ifdef HAVE_UNISTD_H # include #endif #include "xgettext.h" #include "dir-list.h" #include "file-list.h" #include "error.h" #include "progname.h" #include "getline.h" #include "system.h" #include "po.h" #include "message.h" #include "write-po.h" #include "format.h" #include "libgettext.h" #ifndef _POSIX_VERSION struct passwd *getpwuid (); #endif /* A convenience macro. I don't like writing gettext() every time. */ #define _(str) gettext (str) #include "x-c.h" #include "x-po.h" #include "x-java.h" /* If nonzero add all comments immediately preceding one of the keywords. */ static bool add_all_comments = false; /* If nonzero add comments for file name and line number for each msgid. */ int line_comment; /* Tag used in comment of prevailing domain. */ static char *comment_tag; /* Compare tokens with keywords using substring matching instead of equality. */ bool substring_match; /* Name of default domain file. If not set defaults to messages.po. */ static const char *default_domain; /* If called with --debug option the output reflects whether format string recognition is done automatically or forced by the user. */ static int do_debug; /* Content of .po files with symbols to be excluded. */ message_list_ty *exclude; /* Force output of PO file even if empty. */ static int force_po; /* If nonzero a non GNU related user wants to use this. Omit the FSF copyright in the output. */ static int foreign_user; /* String used as prefix for msgstr. */ static const char *msgstr_prefix; /* String used as suffix for msgstr. */ static const char *msgstr_suffix; /* Directory in which output files are created. */ static char *output_dir; /* If nonzero omit header with information about this run. */ static int omit_header; /* Long options. */ static const struct option long_options[] = { { "add-comments", optional_argument, NULL, 'c' }, { "add-location", no_argument, &line_comment, 1 }, { "c++", no_argument, NULL, 'C' }, { "debug", no_argument, &do_debug, 1 }, { "default-domain", required_argument, NULL, 'd' }, { "directory", required_argument, NULL, 'D' }, { "escape", no_argument, NULL, 'E' }, { "exclude-file", required_argument, NULL, 'x' }, { "extract-all", no_argument, NULL, 'a' }, { "files-from", required_argument, NULL, 'f' }, { "force-po", no_argument, &force_po, 1 }, { "foreign-user", no_argument, &foreign_user, 1 }, { "help", no_argument, NULL, 'h' }, { "indent", no_argument, NULL, 'i' }, { "join-existing", no_argument, NULL, 'j' }, { "keyword", optional_argument, NULL, 'k' }, { "keyword-substring", no_argument, NULL, 'K'}, { "language", required_argument, NULL, 'L' }, { "msgstr-prefix", optional_argument, NULL, 'm' }, { "msgstr-suffix", optional_argument, NULL, 'M' }, { "no-escape", no_argument, NULL, 'e' }, { "no-location", no_argument, &line_comment, 0 }, { "omit-header", no_argument, &omit_header, 1 }, { "output", required_argument, NULL, 'o' }, { "output-dir", required_argument, NULL, 'p' }, { "sort-by-file", no_argument, NULL, 'F' }, { "sort-output", no_argument, NULL, 's' }, { "strict", no_argument, NULL, 'S' }, { "string-limit", required_argument, NULL, 'l' }, { "trigraphs", no_argument, NULL, 'T' }, { "version", no_argument, NULL, 'V' }, { "width", required_argument, NULL, 'w', }, { NULL, 0, NULL, 0 } }; /* Prototypes for local functions. Needed to ensure compiler checking of function argument counts despite of K&R C function definition syntax. */ static void usage PARAMS ((int status)) #if defined __GNUC__ && ((__GNUC__ == 2 && __GNUC_MINOR__ > 4) || __GNUC__ > 2) __attribute__ ((noreturn)) #endif ; static void exclude_directive_domain PARAMS ((po_ty *pop, char *name)); static void exclude_directive_message PARAMS ((po_ty *pop, char *msgid, lex_pos_ty *msgid_pos, char *msgid_plural, char *msgstr, size_t msgstr_len, lex_pos_ty *msgstr_pos, bool obsolete)); static void read_exclusion_file PARAMS ((char *file_name)); static FILE *xgettext_open PARAMS ((const char *fn, char **logical_file_name_p, char **real_file_name_p)); static void scan_c_file PARAMS ((const char *file_name, msgdomain_list_ty *mdlp)); static void scan_po_file PARAMS ((const char *file_name, msgdomain_list_ty *mdlp)); static long difftm PARAMS ((const struct tm *a, const struct tm *b)); static message_ty *construct_header PARAMS ((void)); /* The scanners must all be functions returning void and taking one string argument and a message list argument. */ typedef void (*scanner_fp) PARAMS ((const char *, msgdomain_list_ty *)); static scanner_fp language_to_scanner PARAMS ((const char *)); static const char *extension_to_language PARAMS ((const char *)); int main (argc, argv) int argc; char *argv[]; { int cnt; int optchar; bool do_help = false; bool do_version = false; msgdomain_list_ty *mdlp; bool join_existing = false; bool sort_by_msgid = false; bool sort_by_filepos = false; const char *file_name; const char *files_from = NULL; string_list_ty *file_list; char *output_file = NULL; scanner_fp scanner = NULL; /* Set program name for messages. */ set_program_name (argv[0]); error_print_progname = maybe_print_progname; #ifdef HAVE_SETLOCALE /* Set locale via LC_ALL. */ setlocale (LC_ALL, ""); #endif /* Set the text message domain. */ bindtextdomain (PACKAGE, LOCALEDIR); textdomain (PACKAGE); /* Set initial value of variables. */ line_comment = -1; default_domain = MESSAGE_DOMAIN_DEFAULT; while ((optchar = getopt_long (argc, argv, "ac::Cd:D:eEf:Fhijk::l:L:m::M::no:p:sTVw:x:", long_options, NULL)) != EOF) switch (optchar) { case '\0': /* Long option. */ break; case 'a': x_c_extract_all (); x_java_extract_all (); break; case 'c': if (optarg == NULL) { add_all_comments = true; comment_tag = NULL; } else { add_all_comments = false; comment_tag = optarg; /* We ignore leading white space. */ while (isspace ((unsigned char) *comment_tag)) ++comment_tag; } break; case 'C': scanner = language_to_scanner ("C++"); break; case 'd': default_domain = optarg; break; case 'D': dir_list_append (optarg); break; case 'e': message_print_style_escape (false); break; case 'E': message_print_style_escape (true); break; case 'f': files_from = optarg; break; case 'F': sort_by_filepos = true; break; case 'h': do_help = true; break; case 'i': message_print_style_indent (); break; case 'j': join_existing = true; break; case 'k': if (optarg == NULL || *optarg != '\0') { x_c_keyword (optarg); x_java_keyword (optarg); } break; case 'K': substring_match = true; break; case 'l': /* Accepted for backward compatibility with 0.10.35. */ break; case 'L': scanner = language_to_scanner (optarg); break; case 'm': /* -m takes an optional argument. If none is given "" is assumed. */ msgstr_prefix = optarg == NULL ? "" : optarg; break; case 'M': /* -M takes an optional argument. If none is given "" is assumed. */ msgstr_suffix = optarg == NULL ? "" : optarg; break; case 'n': line_comment = 1; break; case 'o': output_file = optarg; break; case 'p': { size_t len = strlen (optarg); if (output_dir != NULL) free (output_dir); if (optarg[len - 1] == '/') output_dir = xstrdup (optarg); else { asprintf (&output_dir, "%s/", optarg); if (output_dir == NULL) /* We are about to construct the absolute path to the directory for the output files but asprintf failed. */ error (EXIT_FAILURE, errno, _("while preparing output")); } } break; case 's': sort_by_msgid = true; break; case 'S': message_print_style_uniforum (); break; case 'T': x_c_trigraphs (); break; case 'V': do_version = true; break; case 'w': { int value; char *endp; value = strtol (optarg, &endp, 10); if (endp != optarg) message_page_width_set (value); } break; case 'x': read_exclusion_file (optarg); break; default: usage (EXIT_FAILURE); /* NOTREACHED */ } /* Normalize selected options. */ if (omit_header != 0 && line_comment < 0) line_comment = 0; if (!line_comment && sort_by_filepos) error (EXIT_FAILURE, 0, _("%s and %s are mutually exclusive"), "--no-location", "--sort-by-file"); if (sort_by_msgid && sort_by_filepos) error (EXIT_FAILURE, 0, _("%s and %s are mutually exclusive"), "--sort-output", "--sort-by-file"); if (join_existing && strcmp (default_domain, "-") == 0) error (EXIT_FAILURE, 0, _("\ --join-existing cannot be used when output is written to stdout")); if (!x_c_any_keywords ()) { error (0, 0, _("\ xgettext cannot work without keywords to look for")); usage (EXIT_FAILURE); } /* Version information requested. */ if (do_version) { printf ("%s (GNU %s) %s\n", basename (program_name), PACKAGE, VERSION); /* xgettext: no-wrap */ 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\ "), "1995-1998, 2000, 2001"); printf (_("Written by %s.\n"), "Ulrich Drepper"); exit (EXIT_SUCCESS); } /* Help is requested. */ if (do_help) usage (EXIT_SUCCESS); /* Test whether we have some input files given. */ if (files_from == NULL && optind >= argc) { error (EXIT_SUCCESS, 0, _("no input file given")); usage (EXIT_FAILURE); } /* Canonize msgstr prefix/suffix. */ if (msgstr_prefix != NULL && msgstr_suffix == NULL) msgstr_suffix = ""; else if (msgstr_prefix == NULL && msgstr_suffix != NULL) msgstr_prefix = ""; /* Default output directory is the current directory. */ if (output_dir == NULL) output_dir = "."; /* Construct the name of the output file. If the default domain has the special name "-" we write to stdout. */ if (output_file) { if (IS_ABSOLUTE_PATH (output_file) || strcmp (output_file, "-") == 0) file_name = xstrdup (output_file); else /* Please do NOT add a .po suffix! */ file_name = concatenated_pathname (output_dir, output_file, NULL); } else if (strcmp (default_domain, "-") == 0) file_name = "-"; else file_name = concatenated_pathname (output_dir, default_domain, ".po"); /* Determine list of files we have to process. */ if (files_from != NULL) file_list = read_names_from_file (files_from); else file_list = string_list_alloc (); /* Append names from command line. */ for (cnt = optind; cnt < argc; ++cnt) string_list_append_unique (file_list, argv[cnt]); /* Allocate a message list to remember all the messages. */ mdlp = msgdomain_list_alloc (); /* Generate a header, so that we know how and when this PO file was created. */ if (!omit_header) message_list_append (mdlp->item[0]->messages, construct_header ()); /* Read in the old messages, so that we can add to them. */ if (join_existing) scan_po_file (file_name, mdlp); /* Process all input files. */ for (cnt = 0; cnt < file_list->nitems; ++cnt) { const char *fname; scanner_fp scan_file; fname = file_list->item[cnt]; if (scanner) scan_file = scanner; else { const char *extension; const char *language; /* Work out what the file extension is. */ extension = strrchr (fname, '/'); if (!extension) extension = fname; extension = strrchr (extension, '.'); if (extension) ++extension; else extension = ""; /* derive the language from the extension, and the scanner function from the language. */ language = extension_to_language (extension); if (language == NULL) { error (0, 0, _("\ warning: file `%s' extension `%s' is unknown; will try C"), fname, extension); language = "C"; } scan_file = language_to_scanner (language); } /* Scan the file. */ scan_file (fname, mdlp); } string_list_free (file_list); /* Sorting the list of messages. */ if (sort_by_filepos) msgdomain_list_sort_by_filepos (mdlp); else if (sort_by_msgid) msgdomain_list_sort_by_msgid (mdlp); /* Write the PO file. */ msgdomain_list_print (mdlp, file_name, force_po, do_debug); exit (EXIT_SUCCESS); } /* Display usage information and exit. */ static void usage (status) int status; { if (status != EXIT_SUCCESS) fprintf (stderr, _("Try `%s --help' for more information.\n"), program_name); else { /* xgettext: no-wrap */ printf (_("\ Usage: %s [OPTION] [INPUTFILE]...\n\ "), program_name); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Extract translatable strings from given input files.\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Mandatory arguments to long options are mandatory for short options too.\n\ Similarly for optional arguments.\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Input file location:\n\ INPUTFILE ... input files\n\ -f, --files-from=FILE get list of input files from FILE\n\ -D, --directory=DIRECTORY add DIRECTORY to list for input files search\n\ If input file is -, standard input is read.\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Output file location:\n\ -d, --default-domain=NAME use NAME.po for output (instead of messages.po)\n\ -o, --output=FILE write output to specified file\n\ -p, --output-dir=DIR output files will be placed in directory DIR\n\ If output file is -, output is written to standard output.\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Choice of input file language:\n\ -L, --language=NAME recognise the specified language\n\ (C, C++, ObjectiveC, PO, Java)\n\ -C, --c++ shorthand for --language=C++\n\ By default the language is guessed depending on the input file name extension.\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Operation mode:\n\ -j, --join-existing join messages with existing file\n\ -x, --exclude-file=FILE.po entries from FILE.po are not extracted\n\ -c, --add-comments[=TAG] place comment block with TAG (or those\n\ preceding keyword lines) in output file\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Language=C/C++ specific options:\n\ -a, --extract-all extract all strings\n\ -k, --keyword[=WORD] additional keyword to be looked for (without\n\ WORD means not to use default keywords)\n\ -T, --trigraphs understand ANSI C trigraphs for input\n\ --debug more detailed formatstring recognition result\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Output details:\n\ -e, --no-escape do not use C escapes in output (default)\n\ -E, --escape use C escapes in output, no extended chars\n\ --force-po write PO file even if empty\n\ -i, --indent write the .po file using indented style\n\ --no-location do not write '#: filename:line' lines\n\ -n, --add-location generate '#: filename:line' lines (default)\n\ --strict write out strict Uniforum conforming .po file\n\ -w, --width=NUMBER set output page width\n\ -s, --sort-output generate sorted output and remove duplicates\n\ -F, --sort-by-file sort output by file location\n\ --omit-header don't write header with `msgid \"\"' entry\n\ --foreign-user omit FSF copyright in output for foreign user\n\ -m, --msgstr-prefix[=STRING] use STRING or \"\" as prefix for msgstr entries\n\ -M, --msgstr-suffix[=STRING] use STRING or \"\" as suffix for msgstr entries\n\ ")); printf ("\n"); /* xgettext: no-wrap */ printf (_("\ Informative output:\n\ -h, --help display this help and exit\n\ -V, --version output version information and exit\n\ ")); printf ("\n"); fputs (_("Report bugs to .\n"), stdout); } exit (status); } static void exclude_directive_domain (pop, name) po_ty *pop; char *name; { po_gram_error_at_line (&gram_pos, _("this file may not contain domain directives")); } static void exclude_directive_message (pop, msgid, msgid_pos, msgid_plural, msgstr, msgstr_len, msgstr_pos, obsolete) po_ty *pop; char *msgid; lex_pos_ty *msgid_pos; char *msgid_plural; char *msgstr; size_t msgstr_len; lex_pos_ty *msgstr_pos; bool obsolete; { message_ty *mp; /* See if this message ID has been seen before. */ if (exclude == NULL) exclude = message_list_alloc (); mp = message_list_search (exclude, msgid); if (mp != NULL) free (msgid); else { mp = message_alloc (msgid, msgid_plural, "", 1, msgstr_pos); /* Do not free msgid. */ message_list_append (exclude, mp); } /* All we care about is the msgid. Throw the msgstr away. Don't even check for duplicate msgids. */ free (msgstr); } /* So that the one parser can be used for multiple programs, and also use good data hiding and encapsulation practices, an object oriented approach has been taken. An object instance is allocated, and all actions resulting from the parse will be through invocations of method functions of that object. */ static po_method_ty exclude_methods = { sizeof (po_ty), NULL, /* constructor */ NULL, /* destructor */ exclude_directive_domain, exclude_directive_message, NULL, /* parse_brief */ NULL, /* parse_debrief */ NULL, /* comment */ NULL, /* comment_dot */ NULL, /* comment_filepos */ NULL, /* comment_special */ }; static void read_exclusion_file (file_name) char *file_name; { po_ty *pop; pop = po_alloc (&exclude_methods); po_scan_file (pop, file_name); po_free (pop); } static string_list_ty *comment; void xgettext_comment_add (str) const char *str; { if (comment == NULL) comment = string_list_alloc (); string_list_append (comment, str); } const char * xgettext_comment (n) size_t n; { if (comment == NULL || n >= comment->nitems) return NULL; return comment->item[n]; } void xgettext_comment_reset () { if (comment != NULL) { string_list_free (comment); comment = NULL; } } static FILE * xgettext_open (fn, logical_file_name_p, real_file_name_p) const char *fn; char **logical_file_name_p; char **real_file_name_p; { FILE *fp; char *new_name; char *logical_file_name; if (strcmp (fn, "-") == 0) { new_name = xstrdup (_("standard input")); logical_file_name = xstrdup (new_name); fp = stdin; } else if (IS_ABSOLUTE_PATH (fn)) { new_name = xstrdup (fn); fp = fopen (fn, "r"); if (fp == NULL) error (EXIT_FAILURE, errno, _("\ error while opening \"%s\" for reading"), fn); logical_file_name = xstrdup (new_name); } else { int j; for (j = 0; ; ++j) { const char *dir = dir_list_nth (j); if (dir == NULL) error (EXIT_FAILURE, ENOENT, _("\ error while opening \"%s\" for reading"), fn); new_name = concatenated_pathname (dir, fn, NULL); fp = fopen (new_name, "r"); if (fp != NULL) break; if (errno != ENOENT) error (EXIT_FAILURE, errno, _("\ error while opening \"%s\" for reading"), new_name); free (new_name); } /* Note that the NEW_NAME variable contains the actual file name and the logical file name is what is reported by xgettext. In this case NEW_NAME is set to the file which was found along the directory search path, and LOGICAL_FILE_NAME is is set to the file name which was searched for. */ logical_file_name = xstrdup (fn); } *logical_file_name_p = logical_file_name; *real_file_name_p = new_name; return fp; } /* Language dependent format string parser. NULL if the language has no notion of format strings. */ static struct formatstring_parser *current_formatstring_parser; message_ty * remember_a_message (mlp, string, pos) message_list_ty *mlp; char *string; lex_pos_ty *pos; { enum is_format is_format[NFORMATS]; enum is_wrap do_wrap; char *msgid; message_ty *mp; char *msgstr; size_t i; msgid = string; /* See whether we shall exclude this message. */ if (exclude != NULL && message_list_search (exclude, msgid) != NULL) { /* Tell the lexer to reset its comment buffer, so that the next message gets the correct comments. */ xgettext_comment_reset (); return NULL; } for (i = 0; i < NFORMATS; i++) is_format[i] = undecided; do_wrap = undecided; /* See if we have seen this message before. */ mp = message_list_search (mlp, msgid); if (mp != NULL) { free (msgid); for (i = 0; i < NFORMATS; i++) is_format[i] = mp->is_format[i]; do_wrap = mp->do_wrap; } else { static lex_pos_ty pos = { __FILE__, __LINE__ }; /* Construct the msgstr from the prefix and suffix, otherwise use the empty string. */ if (msgstr_prefix) { msgstr = (char *) xmalloc (strlen (msgstr_prefix) + strlen (msgid) + strlen (msgstr_suffix) + 1); stpcpy (stpcpy (stpcpy (msgstr, msgstr_prefix), msgid), msgstr_suffix); } else msgstr = ""; /* Allocate a new message and append the message to the list. */ mp = message_alloc (msgid, NULL, msgstr, strlen (msgstr) + 1, &pos); /* Do not free msgid. */ message_list_append (mlp, mp); } /* Ask the lexer for the comments it has seen. Only do this for the first instance, otherwise there could be problems; especially if the same comment appears before each. */ if (!mp->comment_dot) { int j; for (j = 0; ; ++j) { const char *s = xgettext_comment (j); const char *t; if (s == NULL) break; /* To reduce the possibility of unwanted matches be do a two step match: the line must contain `xgettext:' and one of the possible format description strings. */ if ((t = strstr (s, "xgettext:")) != NULL) { bool tmp_fuzzy; enum is_format tmp_format[NFORMATS]; enum is_wrap tmp_wrap; bool interesting; t += strlen ("xgettext:"); po_parse_comment_special (t, &tmp_fuzzy, tmp_format, &tmp_wrap); interesting = false; for (i = 0; i < NFORMATS; i++) if (tmp_format[i] != undecided) { is_format[i] = tmp_format[i]; interesting = true; } if (tmp_wrap != undecided) { do_wrap = tmp_wrap; interesting = true; } /* If the "xgettext:" marker was followed by an interesting keyword, and we updated our is_format/do_wrap variables, we don't print the comment as a #. comment. */ if (interesting) continue; } if (add_all_comments || (comment_tag != NULL && strncmp (s, comment_tag, strlen (comment_tag)) == 0)) message_comment_dot_append (mp, s); } } /* If it is not already decided, through programmer comments, whether the msgid is a format string, examine the msgid. This is a heuristic. */ for (i = 0; i < NFORMATS; i++) { if (is_format[i] == undecided && formatstring_parsers[i] == current_formatstring_parser) { struct formatstring_parser *parser = formatstring_parsers[i]; void *descr = parser->parse (mp->msgid); if (descr != NULL) { /* msgid is a valid format string. We mark only those msgids as format strings which contain at least one format directive and thus are format strings with a high probability. We don't mark strings without directives as format strings, because that would force the programmer to add "xgettext: no-c-format" anywhere where a translator wishes to use a percent sign. So, the msgfmt checking will not be perfect. Oh well. */ if (parser->get_number_of_directives (descr) > 0) is_format[i] = possible; parser->free (descr); } else /* msgid is not a valid format string. */ is_format[i] = impossible; } mp->is_format[i] = is_format[i]; } mp->do_wrap = do_wrap == no ? no : yes; /* By default we wrap. */ /* Remember where we saw this msgid. */ if (line_comment) message_comment_filepos (mp, pos->file_name, pos->line_number); /* Tell the lexer to reset its comment buffer, so that the next message gets the correct comments. */ xgettext_comment_reset (); return mp; } void remember_a_message_plural (mp, string, pos) message_ty *mp; char *string; lex_pos_ty *pos; { char *msgid_plural; char *msgstr1; size_t msgstr1_len; char *msgstr; msgid_plural = string; /* See if the message is already a plural message. */ if (mp->msgid_plural == NULL) { mp->msgid_plural = msgid_plural; /* Construct the first plural form from the prefix and suffix, otherwise use the empty string. The translator will have to provide additional plural forms. */ if (msgstr_prefix) { msgstr1 = (char *) xmalloc (strlen (msgstr_prefix) + strlen (msgid_plural) + strlen (msgstr_suffix) + 1); stpcpy (stpcpy (stpcpy (msgstr1, msgstr_prefix), msgid_plural), msgstr_suffix); } else msgstr1 = ""; msgstr1_len = strlen (msgstr1) + 1; msgstr = (char *) xmalloc (mp->msgstr_len + msgstr1_len); memcpy (msgstr, mp->msgstr, mp->msgstr_len); memcpy (msgstr + mp->msgstr_len, msgstr1, msgstr1_len); mp->msgstr = msgstr; mp->msgstr_len = mp->msgstr_len + msgstr1_len; } else free (msgid_plural); } static void scan_c_file (file_name, mdlp) const char *file_name; msgdomain_list_ty *mdlp; { char *logical_file_name; char *real_file_name; FILE *fp = xgettext_open (file_name, &logical_file_name, &real_file_name); extract_c (fp, real_file_name, logical_file_name, mdlp); if (fp != stdin) fclose (fp); free (logical_file_name); free (real_file_name); } /* Read the contents of the specified .po file into a message list. */ static void scan_po_file (file_name, mdlp) const char *file_name; msgdomain_list_ty *mdlp; { char *logical_filename; char *real_filename; FILE *fp = xgettext_open (file_name, &logical_filename, &real_filename); extract_po (fp, real_filename, logical_filename, mdlp); if (fp != stdin) fclose (fp); free (logical_filename); free (real_filename); } static void scan_java_file (file_name, mdlp) const char *file_name; msgdomain_list_ty *mdlp; { char *logical_file_name; char *real_file_name; FILE *fp = xgettext_open (file_name, &logical_file_name, &real_file_name); extract_java (fp, real_file_name, logical_file_name, mdlp); if (fp != stdin) fclose (fp); free (logical_file_name); free (real_file_name); } #define TM_YEAR_ORIGIN 1900 /* Yield A - B, measured in seconds. */ static long difftm (a, b) const struct tm *a; const struct tm *b; { int ay = a->tm_year + (TM_YEAR_ORIGIN - 1); int by = b->tm_year + (TM_YEAR_ORIGIN - 1); /* Some compilers cannot handle this as a single return statement. */ long days = ( /* difference in day of year */ a->tm_yday - b->tm_yday /* + intervening leap days */ + ((ay >> 2) - (by >> 2)) - (ay / 100 - by / 100) + ((ay / 100 >> 2) - (by / 100 >> 2)) /* + difference in years * 365 */ + (long) (ay - by) * 365l); return 60l * (60l * (24l * days + (a->tm_hour - b->tm_hour)) + (a->tm_min - b->tm_min)) + (a->tm_sec - b->tm_sec); } static message_ty * construct_header () { time_t now; struct tm local_time; message_ty *mp; char *msgstr; static lex_pos_ty pos = { __FILE__, __LINE__, }; char tz_sign; long tz_min; time (&now); local_time = *localtime (&now); tz_sign = '+'; tz_min = difftm (&local_time, gmtime (&now)) / 60; if (tz_min < 0) { tz_min = -tz_min; tz_sign = '-'; } asprintf (&msgstr, "\ Project-Id-Version: PACKAGE VERSION\n\ POT-Creation-Date: %d-%02d-%02d %02d:%02d%c%02ld%02ld\n\ PO-Revision-Date: YEAR-MO-DA HO:MI+ZONE\n\ Last-Translator: FULL NAME \n\ Language-Team: LANGUAGE \n\ MIME-Version: 1.0\n\ Content-Type: text/plain; charset=CHARSET\n\ Content-Transfer-Encoding: 8bit\n", local_time.tm_year + TM_YEAR_ORIGIN, local_time.tm_mon + 1, local_time.tm_mday, local_time.tm_hour, local_time.tm_min, tz_sign, tz_min / 60, tz_min % 60); if (msgstr == NULL) error (EXIT_FAILURE, errno, _("while preparing output")); mp = message_alloc ("", NULL, msgstr, strlen (msgstr) + 1, &pos); if (foreign_user) message_comment_append (mp, "\ SOME DESCRIPTIVE TITLE.\n\ FIRST AUTHOR , YEAR.\n"); else message_comment_append (mp, "\ SOME DESCRIPTIVE TITLE.\n\ Copyright (C) YEAR Free Software Foundation, Inc.\n\ FIRST AUTHOR , YEAR.\n"); mp->is_fuzzy = true; return mp; } #define SIZEOF(a) (sizeof(a) / sizeof(a[0])) #define ENDOF(a) ((a) + SIZEOF(a)) static scanner_fp language_to_scanner (name) const char *name; { typedef struct table_ty table_ty; struct table_ty { const char *name; scanner_fp func; struct formatstring_parser *formatstring_parser; }; static table_ty table[] = { SCANNERS_C SCANNERS_PO SCANNERS_JAVA { "Python", scan_c_file, &formatstring_python }, { "Lisp", scan_c_file, &formatstring_lisp }, { "YCP", scan_c_file, &formatstring_ycp }, /* Here will follow more languages and their scanners: awk, perl, etc... Make sure new scanners honor the --exclude-file option. */ }; table_ty *tp; for (tp = table; tp < ENDOF(table); ++tp) if (strcasecmp (name, tp->name) == 0) { /* XXX Ugly side effect. */ current_formatstring_parser = tp->formatstring_parser; return tp->func; } error (EXIT_FAILURE, 0, _("language `%s' unknown"), name); /* NOTREACHED */ return NULL; } static const char * extension_to_language (extension) const char *extension; { typedef struct table_ty table_ty; struct table_ty { const char *extension; const char *language; }; static table_ty table[] = { EXTENSIONS_C EXTENSIONS_PO EXTENSIONS_JAVA /* Here will follow more file extensions: sh, pl, tcl, lisp ... */ }; table_ty *tp; for (tp = table; tp < ENDOF(table); ++tp) if (strcmp (extension, tp->extension) == 0) return tp->language; return NULL; }