src/tpath.c

   1 /* This file is part of the YAZ toolkit.
   2  * Copyright (C) 1995-2011 Index Data
   3  * See the file LICENSE for details.
   4  */
   5 /**
   6  * \file tpath.c
   7  * \brief File Path utilities
   8  */
   9
  10 #if HAVE_CONFIG_H
  11 #include <config.h>
  12 #endif
  13
  14
  15 #include <stdio.h>
  16 #include <string.h>
  17 #include <ctype.h>
  18 #include <yaz/tpath.h>
  19 #include <yaz/log.h>
  20 #if HAVE_SYS_TYPES_H
  21 #include <sys/types.h>
  22 #endif
  23 #if HAVE_SYS_STAT_H
  24 #include <sys/stat.h>
  25 #endif
  26 #if WIN32
  27 #include <sys/stat.h>
  28 #endif
  29
  30 #if HAVE_UNISTD_H
  31 #include <unistd.h>
  32 #endif
  33
  34 FILE *yaz_path_fopen(const char *path, const char *name, const char *mode)
  35 {
  36     return yaz_fopen (path, name, mode, 0);
  37 }
  38
  39 int yaz_fclose (FILE *f)
  40 {
  41     return fclose (f);
  42 }
  43
  44
  45 size_t yaz_filepath_comp(const char **path_p, const char **comp)
  46 {
  47     const char *path = *path_p;
  48     size_t len;
  49     const char *path_sep;
  50
  51     /* somewhat dirty since we have to consider Windows
  52      * drive letters..
  53      */
  54     if (path[0] && strchr ("/\\.", path[0]))
  55         path_sep = strchr (path+1, ':');
  56     else if (path[0] && path[1])
  57         path_sep = strchr (path+2, ':');
  58     else
  59         path_sep = 0;
  60
  61     if (path_sep)
  62     {
  63         len = path_sep - path;
  64         *path_p = path + len + 1;
  65     }
  66     else
  67     {
  68         len = strlen(path);
  69         *path_p = path + len;
  70     }
  71     *comp = path;
  72     return len;
  73 }
  74
  75 char *yaz_filepath_resolve(const char *fname, const char *path,
  76                            const char *base, char *fullpath)
  77 {
  78     for(;;)
  79     {
  80         struct stat stat_buf;
  81         size_t slen = 0;
  82
  83         *fullpath = '\0';
  84         if (path)
  85         {
  86             const char *comp;
  87             size_t len = 0;
  88
  89             len = yaz_filepath_comp(&path, &comp);
  90             if (!len)
  91                 break;
  92
  93             if (!strchr ("/\\", *comp) && base)
  94             {
  95                 /* yes: make base the first part */
  96                 strcpy (fullpath, base);
  97                 slen = strlen(fullpath);
  98                 fullpath[slen++] = '/';
  99             }
 100             memcpy (fullpath+slen, comp, len);
 101             slen += len;
 102             if (slen > 0 && !strchr("/\\", fullpath[slen-1]))
 103                 fullpath[slen++] = '/';
 104         }
 105         strcpy (fullpath+slen, fname);
 106         if (stat(fullpath, &stat_buf) == 0)
 107             return fullpath;
 108         if (!path)
 109             break;
 110     }
 111     return 0;
 112 }
 113
 114 FILE *yaz_fopen(const char *path, const char *fname, const char *mode,
 115                 const char *base)
 116 {
 117     char fullpath[1024];
 118
 119     if (!yaz_filepath_resolve(fname, path, base, fullpath))
 120         return 0; /* failure */
 121     return fopen(fullpath, mode);
 122 }
 123
 124 int yaz_is_abspath (const char *p)
 125 {
 126     if (*p == '/')
 127         return 1;
 128 #ifdef WIN32
 129     if (*p == '\\')
 130         return 1;
 131     if (*p && p[1] == ':' && isalpha(*p))
 132         return 1;
 133 #endif
 134     return 0;
 135 }
 136 /*
 137  * Local variables:
 138  * c-basic-offset: 4
 139  * c-file-style: "Stroustrup"
 140  * indent-tabs-mode: nil
 141  * End:
 142  * vim: shiftwidth=4 tabstop=8 expandtab
 143  */
 144