home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / gettext-0.10.24-src.tgz / tar.out / fsf / gettext / src / open-po.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  4KB  |  132 lines
  1. /* open-po - search for .po file along search path list and open for reading
  2.    Copyright (C) 1995, 1996 Free Software Foundation, Inc.
  3.    Written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, April 1995.
  4.  
  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 2, or (at your option)
  8. any later version.
  9.  
  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.
  14.  
  15. You should have received a copy of the GNU General Public License
  16. along with this program; if not, write to the Free Software
  17. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18.  
  19. #ifdef HAVE_CONFIG_H
  20. # include <config.h>
  21. #endif
  22.  
  23. #include <errno.h>
  24. #include <stdio.h>
  25. #include <sys/types.h>
  26.  
  27. #ifdef STDC_HEADERS
  28. # include <stdlib.h>
  29. #endif
  30.  
  31. #if defined STDC_HEADERS || HAVE_STRING_H
  32. # include <string.h>
  33. #else
  34. # include <strings.h>
  35. #endif
  36.  
  37. #include "dir-list.h"
  38. #include "error.h"
  39. #include "system.h"
  40.  
  41. #include <libintl.h>
  42.  
  43. #define _(str) gettext (str)
  44.  
  45. #ifndef errno
  46. extern int errno;
  47. #endif
  48.  
  49. /* Prototypes for helper functions.  */
  50. extern char *xstrdup PARAMS ((const char *string));
  51.  
  52. /* This macro is used to determine the number of elements in an erray.  */
  53. #define SIZEOF(a) (sizeof(a)/sizeof(a[0]))
  54.  
  55. /* Open the input file with the name INPUT_NAME.  The ending .po is added
  56.    if necessary.  If INPUT_NAME is not an absolute file name and the file is
  57.    not found, the list of directories in INPUT_PATH_LIST is searched.  */
  58. FILE *
  59. open_po_file (input_name, file_name)
  60.      const char *input_name;
  61.      char **file_name;
  62. {
  63.   static const char *extension[] = { "", ".po", ".pot", };
  64.   FILE *ret_val;
  65.   int j, k;
  66.   const char *dir;
  67.   const char *ext;
  68.  
  69.   if (strcmp (input_name, "-") == 0 || strcmp (input_name, "/dev/stdin") == 0)
  70.     {
  71.       *file_name = xstrdup (_("<stdin>"));
  72.       return stdin;
  73.     }
  74.  
  75.   /* We have a real name for the input file.  If the name is absolute,
  76.      try the various extensions, but ignore the directory search list.  */
  77.   if (*input_name == '/')
  78.     {
  79.       for (k = 0; k < SIZEOF (extension); ++k)
  80.     {
  81.       ext = extension[k];
  82.       *file_name = xmalloc (strlen (input_name) + strlen (ext) + 1);
  83.       stpcpy (stpcpy (*file_name, input_name), ext);
  84.  
  85.       ret_val = fopen (*file_name, "r");
  86.       if (ret_val != NULL || errno != ENOENT)
  87.         /* We found the file.  */
  88.         return ret_val;
  89.  
  90.       free (*file_name);
  91.     }
  92.  
  93.       /* File does not exist.  */
  94.       *file_name = xstrdup (input_name);
  95.       errno = ENOENT;
  96.       return NULL;
  97.     }
  98.  
  99.   /* For relative file names, look through the directory search list,
  100.      trying the various extensions.  If no directory search list is
  101.      specified, the current directory is used.  */
  102.   for (j = 0; (dir = dir_list_nth (j)) != NULL; ++j)
  103.     for (k = 0; k < SIZEOF (extension); ++k)
  104.       {
  105.     ext = extension[k];
  106.     if (dir[0] == '.' && dir[1] == '\0')
  107.       {
  108.         *file_name = xmalloc (strlen(input_name) + strlen(ext) + 1);
  109.         stpcpy (stpcpy (*file_name, input_name), ext);
  110.       }
  111.     else
  112.       {
  113.         *file_name = xmalloc (strlen (dir) + strlen (input_name)
  114.                   + strlen (ext) + 2);
  115.         stpcpy (stpcpy (stpcpy (stpcpy (*file_name, dir), "/"),
  116.                 input_name),
  117.             ext);
  118.       }
  119.  
  120.     ret_val = fopen (*file_name, "r");
  121.     if (ret_val != NULL || errno != ENOENT)
  122.       return ret_val;
  123.  
  124.     free (*file_name);
  125.       }
  126.  
  127.   /* File does not exist.  */
  128.   *file_name = xstrdup (input_name);
  129.   errno = ENOENT;
  130.   return NULL;
  131. }
  132.