source/texk/kpathsea/kpathsea.c

   1 /* kpathsea.c: creating and freeing library instances
   2
   3    Copyright 2009, 2012 Taco Hoekwater.
   4
   5    This library is free software; you can redistribute it and/or
   6    modify it under the terms of the GNU Lesser General Public
   7    License as published by the Free Software Foundation; either
   8    version 2.1 of the License, or (at your option) any later version.
   9
  10    This library 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 GNU
  13    Lesser General Public License for more details.
  14
  15    You should have received a copy of the GNU Lesser General Public License
  16    along with this library; if not, see <http://www.gnu.org/licenses/>.  */
  17
  18 /* One big global struct, and a variable that points to it */
  19
  20 /*
  21  * The code freeing the strings used in this struct is enabled/disabled
  22  * by KPATHSEA_CAN_FREE.
  23  */
  24
  25 #include <kpathsea/config.h>
  26
  27 kpathsea
  28 kpathsea_new (void)
  29 {
  30     kpathsea ret;
  31     ret = xcalloc(1, sizeof(kpathsea_instance));
  32     return ret;
  33 }
  34
  35 #if KPATHSEA_CAN_FREE
  36
  37 #define string_free(a) if ((a) != NULL) free((char *)(a))
  38
  39 static void
  40 str_llist_free (str_llist_type p)
  41 {
  42     str_llist_type q;
  43     while (p != NULL) {
  44         q = p->next;
  45         free (p->str);
  46         free (p);
  47         p = q;
  48     }
  49 }
  50
  51 static void
  52 cache_free (cache_entry *the_cache, int cache_size)
  53 {
  54     int f ;
  55     for (f = 0; f < cache_size; f++) {
  56         string_free (the_cache[f].key);
  57         str_llist_free (the_cache[f].value[0]);
  58     }
  59     free (the_cache);
  60 }
  61 #endif /* KPATHSEA_CAN_FREE */
  62
  63 /* Sadly, quite a lot of the freeing is not safe:
  64    it seems there are literals used all over. */
  65 void
  66 kpathsea_finish (kpathsea kpse)
  67 {
  68 #if KPATHSEA_CAN_FREE
  69     int i;
  70     kpse_format_info_type f;
  71 #endif /* KPATHSEA_CAN_FREE */
  72     if (kpse==NULL)
  73         return;
  74 #if KPATHSEA_CAN_FREE
  75     /* free internal stuff */
  76     hash_free (kpse->cnf_hash);
  77     hash_free (kpse->db);
  78     hash_free (kpse->alias_db);
  79     str_list_free (&kpse->db_dir_list);
  80     hash_free (kpse->link_table);
  81     cache_free (kpse->the_cache, kpse->cache_length);
  82     hash_free (kpse->map);
  83     string_free (kpse->map_path);
  84     string_free (kpse->elt);
  85     /*string_free (kpse->path);*/
  86     if (kpse->log_file != (FILE *)NULL)
  87         fclose(kpse->log_file);
  88     string_free (kpse->invocation_name);
  89     string_free (kpse->invocation_short_name);
  90     string_free (kpse->program_name);
  91     string_free (kpse->fallback_font);
  92     string_free (kpse->fallback_resolutions_string);
  93     if(kpse->fallback_resolutions != NULL)
  94         free(kpse->fallback_resolutions);
  95     for (i = 0; i != kpse_last_format; ++i) {
  96         f = kpse->format_info[i];
  97         string_free (f.path);
  98         string_free (f.override_path);
  99         string_free (f.client_path);
 100         /*string_free (f.cnf_path);*/
 101     }
 102
 103     if (kpse->missfont != (FILE *)NULL)
 104         fclose (kpse->missfont);
 105
 106     for (i = 0; i < (int)kpse->expansion_len; i++) {
 107         string_free (kpse->expansions[i].var);
 108     }
 109     free (kpse->expansions);
 110     if (kpse->saved_env != NULL) {
 111         for (i = 0; i != kpse->saved_count; ++i)
 112             string_free (kpse->saved_env[i]);
 113         free (kpse->saved_env);
 114     }
 115 #endif /* KPATHSEA_CAN_FREE */
 116 #if defined(WIN32) || defined(__CYGWIN__)
 117     if (kpse->suffixlist != NULL) {
 118         char **p;
 119         for (p = kpse->suffixlist; *p; p++)
 120             free (*p);
 121         free (kpse->suffixlist);
 122         kpse->suffixlist = NULL;
 123     }
 124 #endif /* WIN32 || __CYGWIN__ */
 125 #if defined (KPSE_COMPAT_API)
 126     if (kpse == kpse_def)
 127         return;
 128 #endif
 129     free (kpse);
 130 }
 131
 132
 133 #if defined (KPSE_COMPAT_API)
 134
 135 kpathsea_instance kpse_def_inst;
 136 kpathsea kpse_def = &kpse_def_inst;
 137
 138 #endif /* KPSE_COMPAT_API */