git.oblomov.eu Git - mplib/blob - src/texk/kpathsea/truncate.c

   1 /* truncate.c: truncate too-long components in a filename.
   2
   3     Copyright 1993, 95 Karl Berry.
   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
  16     License along with this library; if not, write to the Free Software
  17     Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
  18
  19 */
  20
  21 #include <kpathsea/config.h>
  22
  23 #include <kpathsea/c-namemx.h>
  24 #include <kpathsea/c-pathch.h>
  25 #include <kpathsea/c-pathmx.h>
  26 #include <kpathsea/truncate.h>
  27
  28
  29 /* Truncate any too-long components in NAME, returning the result.  It's
  30    too bad this is necessary.  See comments in readable.c for why.  */
  31
  32 string
  33 kpse_truncate_filename P1C(const_string, name)
  34 {
  35   unsigned c_len = 0;        /* Length of current component.  */
  36   unsigned ret_len = 0;      /* Length of constructed result.  */
  37
  38   /* Allocate enough space.  */
  39   string ret = (string) xmalloc (strlen (name) + 1);
  40
  41   for (; *name; name++)
  42     {
  43       if (IS_DIR_SEP (*name) || IS_DEVICE_SEP (*name))
  44         { /* At a directory delimiter, reset component length.  */
  45           c_len = 0;
  46         }
  47       else if (c_len > NAME_MAX)
  48         { /* If past the max for a component, ignore this character.  */
  49           continue;
  50         }
  51
  52       /* Copy this character.  */
  53       ret[ret_len++] = *name;
  54       c_len++;
  55     }
  56   ret[ret_len] = 0;
  57
  58   return ret;
  59 }