home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fs.zip / octave / kpathsea / path-elt.c < prev    next >
C/C++ Source or Header  |  2000-01-15  |  4KB  |  146 lines
  1. /* path-elt.c: Return the stuff between colons.
  2.  
  3. Copyright (C) 1993, 96 Karl Berry.
  4.  
  5. This library is free software; you can redistribute it and/or
  6. modify it under the terms of the GNU Library General Public
  7. License as published by the Free Software Foundation; either
  8. version 2 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. Library General Public License for more details.
  14.  
  15. You should have received a copy of the GNU Library General Public
  16. License along with this library; if not, write to the Free Software
  17. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  18.  
  19. #include <kpathsea/config.h>
  20.  
  21. #include <kpathsea/c-pathch.h>
  22. #include <kpathsea/pathsearch.h>
  23.  
  24.  
  25. /* The static (but dynamically allocated) area we return the answer in,
  26.    and how much we've currently allocated for it.  */
  27. static string elt = NULL;
  28. static unsigned elt_alloc = 0;
  29.  
  30. /* The path we're currently working on.  */
  31. static const_string path = NULL;
  32.  
  33.  
  34. /* Upon entry, the static `path' is at the first (and perhaps last)
  35.    character of the return value, or else NULL if we're at the end (or
  36.    haven't been called).  I make no provision for caching the results;
  37.    thus, we parse the same path over and over, on every lookup.  If that
  38.    turns out to be a significant lose, it can be fixed, but I'm guessing
  39.    disk accesses overwhelm everything else.  If ENV_P is true, use
  40.    IS_ENV_SEP; else use IS_DIR_SEP.  */
  41.  
  42. static string
  43. element P2C(const_string, passed_path,  boolean, env_p)
  44. {
  45.   const_string p;
  46.   string ret;
  47.   int brace_level;
  48.   unsigned len;
  49.   
  50.   if (passed_path)
  51.     path = passed_path;
  52.   /* Check if called with NULL, and no previous path (perhaps we reached
  53.      the end).  */
  54.   else if (!path)
  55.     return NULL;
  56.   
  57.   /* OK, we have a non-null `path' if we get here.  */
  58.   assert (path);
  59.   p = path;
  60.   
  61.   /* Find the next colon not enclosed by braces (or the end of the path).  */
  62.   brace_level = 0;
  63.   while (*p != 0  && !(brace_level == 0
  64.                        && (env_p ? IS_ENV_SEP (*p) : IS_DIR_SEP (*p)))) {
  65.     if (*p == '{') ++brace_level;
  66.     else if (*p == '}') --brace_level;
  67.     ++p;
  68.   }
  69.    
  70.   /* Return the substring starting at `path'.  */
  71.   len = p - path;
  72.  
  73.   /* Make sure we have enough space (including the null byte).  */
  74.   if (len + 1 > elt_alloc)
  75.     {
  76.       elt_alloc = len + 1;
  77.       elt = xrealloc (elt, elt_alloc);
  78.     }
  79.  
  80.   strncpy (elt, path, len);
  81.   elt[len] = 0;
  82.   ret = elt;
  83.  
  84.   /* If we are at the end, return NULL next time.  */
  85.   if (path[len] == 0)
  86.     path = NULL;
  87.   else
  88.     path += len + 1;
  89.  
  90.   return ret;
  91. }
  92.  
  93. string
  94. kpse_path_element P1C(const_string, p)
  95. {
  96.   return element (p, true);
  97. }
  98.  
  99. string
  100. kpse_filename_component P1C(const_string, p)
  101. {
  102.   return element (p, false);
  103. }
  104.  
  105. #ifdef TEST
  106.  
  107. void
  108. print_path_elements (const_string path)
  109. {
  110.   string elt;
  111.   printf ("Elements of `%s':", path ? path : "(null)");
  112.   
  113.   for (elt = kpse_path_element (path); elt != NULL;
  114.        elt = kpse_path_element (NULL))
  115.     {
  116.       printf (" %s", *elt ? elt : "`'");
  117.     }
  118.   
  119.   puts (".");
  120. }
  121.  
  122. int
  123. main ()
  124. {
  125.   /* All lists end with NULL.  */
  126.   print_path_elements (NULL);    /* */
  127.   print_path_elements ("");    /* "" */
  128.   print_path_elements ("a");    /* a */
  129.   print_path_elements (ENV_SEP_STRING);    /* "", "" */
  130.   print_path_elements (ENV_SEP_STRING ENV_SEP_STRING);    /* "", "", "" */
  131.   print_path_elements ("a" ENV_SEP_STRING);    /* a, "" */ 
  132.   print_path_elements (ENV_SEP_STRING "b");    /* "", b */ 
  133.   print_path_elements ("a" ENV_SEP_STRING "b");    /* a, b */ 
  134.   
  135.   return 0;
  136. }
  137.  
  138. #endif /* TEST */
  139.  
  140.  
  141. /*
  142. Local variables:
  143. standalone-compile-command: "gcc -g -I. -I.. -DTEST path-elt.c kpathsea.a"
  144. End:
  145. */
  146.