1 /* open-po - search for .po file along search path list and open for reading
2 Copyright (C) 1995-1996, 2000-2003, 2005-2009 Free Software Foundation, Inc.
3 Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, April 1995.
5 This program is free software: you can redistribute it and/or modify
6 it under the terms of the GNU General Public License as published by
7 the Free Software Foundation; either version 3 of the License, or
8 (at your option) any later version.
10 This program is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 GNU General Public License for more details.
15 You should have received a copy of the GNU General Public License
16 along with this program. If not, see <http://www.gnu.org/licenses/>. */
23 #include "open-catalog.h"
33 #include "concat-filename.h"
35 #include "xvasprintf.h"
36 #include "po-xerror.h"
39 #define _(str) gettext (str)
41 /* This macro is used to determine the number of elements in an array. */
42 #define SIZEOF(a) (sizeof(a)/sizeof(a[0]))
45 try_open_catalog_file (const char *input_name, char **real_file_name_p)
47 static const char *extension[] = { "", ".po", ".pot", };
54 if (strcmp (input_name, "-") == 0 || strcmp (input_name, "/dev/stdin") == 0)
56 *real_file_name_p = xstrdup (_("<stdin>"));
60 /* We have a real name for the input file. If the name is absolute,
61 try the various extensions, but ignore the directory search list. */
62 if (IS_ABSOLUTE_PATH (input_name))
64 for (k = 0; k < SIZEOF (extension); ++k)
66 file_name = xconcatenated_filename ("", input_name, extension[k]);
68 ret_val = fopen (file_name, "r");
69 if (ret_val != NULL || errno != ENOENT)
71 /* We found the file. */
72 *real_file_name_p = file_name;
81 /* For relative file names, look through the directory search list,
82 trying the various extensions. If no directory search list is
83 specified, the current directory is used. */
84 for (j = 0; (dir = dir_list_nth (j)) != NULL; ++j)
85 for (k = 0; k < SIZEOF (extension); ++k)
87 file_name = xconcatenated_filename (dir, input_name, extension[k]);
89 ret_val = fopen (file_name, "r");
90 if (ret_val != NULL || errno != ENOENT)
92 *real_file_name_p = file_name;
100 /* File does not exist. */
101 *real_file_name_p = xstrdup (input_name);
106 /* Open the input file with the name INPUT_NAME. The ending .po is added
107 if necessary. If INPUT_NAME is not an absolute file name and the file is
108 not found, the list of directories in "dir-list.h" is searched. The
109 file's pathname is returned in *REAL_FILE_NAME_P, for error message
112 open_catalog_file (const char *input_name, char **real_file_name_p,
115 FILE *fp = try_open_catalog_file (input_name, real_file_name_p);
117 if (fp == NULL && exit_on_error)
119 const char *errno_description = strerror (errno);
120 po_xerror (PO_SEVERITY_FATAL_ERROR, NULL, NULL, 0, 0, false,
122 xasprintf (_("error while opening \"%s\" for reading"),