home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fs.zip / octave / kpathsea / expand.c < prev    next >
C/C++ Source or Header  |  2000-01-15  |  16KB  |  610 lines
  1. /* expand.c: general expansion.  Some of this file (the brace-expansion
  2.    code from bash) is covered by the GPL; this is the only GPL-covered
  3.    code in kpathsea.  The part of the file that I wrote (the first
  4.    couple of functions) is covered by the LGPL.
  5.  
  6. Copyright (C) 1993, 94, 95, 96, 97 Karl Berry & O. Weber.
  7.  
  8. This library is free software; you can redistribute it and/or
  9. modify it under the terms of the GNU Library General Public
  10. License as published by the Free Software Foundation; either
  11. version 2 of the License, or (at your option) any later version.
  12.  
  13. This library is distributed in the hope that it will be useful,
  14. but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16. Library General Public License for more details.
  17.  
  18. You should have received a copy of the GNU Library General Public
  19. License along with this library; if not, write to the Free Software
  20. Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
  21.  
  22. #include <kpathsea/config.h>
  23.  
  24. #include <kpathsea/c-pathch.h>
  25. #include <kpathsea/expand.h>
  26. #include <kpathsea/pathsearch.h>
  27. #include <kpathsea/tilde.h>
  28. #include <kpathsea/variable.h>
  29. #include <kpathsea/concatn.h>
  30. #include <kpathsea/absolute.h>
  31.  
  32.  
  33. /* Do variable expansion first so ~${USER} works.  (Besides, it's what the
  34.    shells do.)  */
  35.  
  36. string
  37. kpse_expand P1C(const_string, s)
  38. {
  39.   string var_expansion = kpse_var_expand (s);
  40.   string tilde_expansion = kpse_tilde_expand (var_expansion);
  41.   
  42.   /* `kpse_var_expand' always gives us new memory; `kpse_tilde_expand'
  43.      doesn't, necessarily.  So be careful that we don't free what we are
  44.      about to return.  */
  45.   if (tilde_expansion != var_expansion)
  46.     free (var_expansion);
  47.   
  48.   return tilde_expansion;
  49. }
  50.  
  51.  
  52. /* Forward declarations of functions from the original expand.c  */
  53. static char **brace_expand P1H(const_string);
  54. static void free_array P1H(char **);
  55.  
  56. /* If $KPSE_DOT is defined in the environment, prepend it to any relative
  57.    path components. */
  58.  
  59. static string
  60. kpse_expand_kpse_dot P1C(string, path)
  61. {
  62.   string ret, elt;
  63.   string kpse_dot = getenv("KPSE_DOT");
  64. #ifdef MSDOS
  65.   boolean malloced_kpse_dot = false;
  66. #endif
  67.   
  68.   if (kpse_dot == NULL)
  69.     return path;
  70.   ret = xmalloc(1);
  71.   *ret = 0;
  72.  
  73. #ifdef MSDOS
  74.   /* Some setups of ported Bash force $KPSE_DOT to have the //d/foo/bar
  75.      form (when `pwd' is used), which is not understood by libc and the OS.
  76.      Convert them back to the usual d:/foo/bar form.  */
  77.   if (kpse_dot[0] == '/' && kpse_dot[1] == '/'
  78.       && kpse_dot[2] >= 'A' && kpse_dot[2] <= 'z' && kpse_dot[3] == '/') {
  79.     kpse_dot++;
  80.     kpse_dot = xstrdup (kpse_dot);
  81.     kpse_dot[0] = kpse_dot[1];  /* drive letter */
  82.     kpse_dot[1] = ':';
  83.     malloced_kpse_dot = true;
  84.   }
  85. #endif
  86.  
  87.   for (elt = kpse_path_element (path); elt; elt = kpse_path_element (NULL)) {
  88.     string save_ret = ret;
  89.     /* We assume that the !! magic is only used on absolute components.
  90.        Single "." get special treatment, as does "./" or its equivalent. */
  91.     if (kpse_absolute_p (elt, false) || (elt[0] == '!' && elt[1] == '!')) {
  92.       ret = concat3(ret, elt, ENV_SEP_STRING);
  93.     } else if (elt[0] == '.' && elt[1] == 0) {
  94.       ret = concat3 (ret, kpse_dot, ENV_SEP_STRING);
  95. #ifndef VMS
  96.     } else if (elt[0] == '.' && IS_DIR_SEP(elt[1])) {
  97.       ret = concatn (ret, kpse_dot, elt + 1, ENV_SEP_STRING, NULL);
  98.     } else {
  99.       ret = concatn (ret, kpse_dot, DIR_SEP_STRING, elt, ENV_SEP_STRING, NULL);
  100. #endif
  101.     }
  102.     free (save_ret);
  103.   }
  104.  
  105. #ifdef MSDOS
  106.   if (malloced_kpse_dot) free (kpse_dot);
  107. #endif
  108.  
  109.   ret[strlen (ret) - 1] = 0;
  110.   return ret;
  111. }
  112.  
  113. /* Do brace expansion on ELT; then do variable and ~ expansion on each
  114.    element of the result; then do brace expansion again, in case a
  115.    variable definition contained braces (e.g., $TEXMF).  Return a
  116.    string comprising all of the results separated by ENV_SEP_STRING.  */
  117.  
  118. static string
  119. kpse_brace_expand_element P1C(const_string, elt)
  120. {
  121.   unsigned i;
  122.   string *expansions = brace_expand (elt);
  123.   string ret = xmalloc (1);
  124.   *ret = 0;
  125.  
  126.   for (i = 0; expansions[i]; i++) {
  127.     /* Do $ and ~ expansion on each element.  */
  128.     string x = kpse_expand (expansions[i]);
  129.     string save_ret = ret;
  130.     if (!STREQ (x, expansions[i])) {
  131.       /* If we did any expansions, do brace expansion again.  Since
  132.          recursive variable definitions are not allowed, this recursion
  133.          must terminate.  (In practice, it's unlikely there will ever be
  134.          more than one level of recursion.)  */
  135.       string save_x = x;
  136.       x = kpse_brace_expand_element (x);
  137.       free (save_x);
  138.     }
  139.     ret = concat3 (ret, x, ENV_SEP_STRING);
  140.     free (save_ret);
  141.     free (x);
  142.   }
  143.  
  144.   free_array (expansions);
  145.   ret[strlen (ret) - 1] = 0; /* waste the trailing null */
  146.   return ret;
  147. }
  148.  
  149. /* Be careful to not waste all the memory we allocate for each element.  */
  150.  
  151. string
  152. kpse_brace_expand P1C(const_string, path)
  153. {
  154.   string kpse_dot_expansion;
  155.   string elt;
  156.   unsigned len;
  157.   /* Must do variable expansion first because if we have
  158.        foo = .:~
  159.        TEXINPUTS = $foo
  160.      we want to end up with TEXINPUTS = .:/home/karl.
  161.      Since kpse_path_element is not reentrant, we must get all
  162.      the path elements before we start the loop.  */
  163.   string xpath = kpse_var_expand (path);
  164.   string ret = xmalloc (1);
  165.   *ret = 0;
  166.  
  167.   for (elt = kpse_path_element (xpath); elt; elt = kpse_path_element (NULL)) {
  168.     string save_ret = ret;
  169.     /* Do brace expansion first, so tilde expansion happens in {~ka,~kb}.  */
  170.     string expansion = kpse_brace_expand_element (elt);
  171.     ret = concat3 (ret, expansion, ENV_SEP_STRING);
  172.     free (expansion);
  173.     free (save_ret);
  174.   }
  175.  
  176.   /* Waste the last byte by overwriting the trailing env_sep with a null.  */
  177.   len = strlen (ret);
  178.   if (len != 0)
  179.     ret[len - 1] = 0;
  180.   free (xpath);
  181.  
  182.   kpse_dot_expansion = kpse_expand_kpse_dot (ret);
  183.   if (kpse_dot_expansion != ret)
  184.     free (ret);
  185.  
  186.   return kpse_dot_expansion;
  187. }
  188.  
  189. /* Expand all special constructs in a path, and include only the actually
  190.    existing directories in the result. */
  191. string
  192. kpse_path_expand P1C(const_string, path)
  193. {
  194.   string ret;
  195.   string xpath;
  196.   string elt;
  197.   unsigned len;
  198.  
  199.   /* Initialise ret to the empty string. */
  200.   ret = xmalloc (1);
  201.   *ret = 0;
  202.   len = 0;
  203.   
  204.   /* Expand variables and braces first.  */
  205.   xpath = kpse_brace_expand (path);
  206.  
  207.   /* Now expand each of the path elements, printing the results */
  208.   for (elt = kpse_path_element (xpath); elt; elt = kpse_path_element (NULL)) {
  209.     str_llist_type *dirs;
  210.  
  211.     /* Skip and ignore magic leading chars.  */
  212.     if (*elt == '!' && *(elt + 1) == '!')
  213.       elt += 2;
  214.  
  215.     /* Do not touch the device if present */
  216.     if (NAME_BEGINS_WITH_DEVICE (elt)) {
  217.       while (IS_DIR_SEP (*(elt + 2)) && IS_DIR_SEP (*(elt + 3))) {
  218.         *(elt + 2) = *(elt + 1);
  219.         *(elt + 1) = *elt;
  220.         elt++;
  221.       }
  222.     } else {
  223.       /* We never want to search the whole disk.  */
  224.       while (IS_DIR_SEP (*elt) && IS_DIR_SEP (*(elt + 1)))
  225.         elt++;
  226.     }
  227.  
  228.     /* Search the disk for all dirs in the component specified.
  229.        Be faster to check the database, but this is more reliable.  */
  230.     dirs = kpse_element_dirs (elt); 
  231.     if (dirs && *dirs) {
  232.       str_llist_elt_type *dir;
  233.  
  234.       for (dir = *dirs; dir; dir = STR_LLIST_NEXT (*dir)) {
  235.         string thedir = STR_LLIST (*dir);
  236.         unsigned dirlen = strlen (thedir);
  237.         string save_ret = ret;
  238.         /* Retain trailing slash if that's the root directory.  */
  239.         if (dirlen == 1 || (dirlen == 3 && NAME_BEGINS_WITH_DEVICE (thedir)
  240.                             && IS_DIR_SEP (thedir[2]))) {
  241.           ret = concat3 (ret, thedir, ENV_SEP_STRING);
  242.           len += dirlen + 1;
  243.           ret[len - 1] = ENV_SEP;
  244.         } else {
  245.           ret = concat (ret, thedir);
  246.           len += dirlen;
  247.           ret [len - 1] = ENV_SEP;
  248.         }
  249.         free (save_ret);
  250.       }
  251.     }
  252.   }
  253.   /* Get rid of trailing ':', if any. */
  254.   if (len != 0)
  255.     ret[len - 1] = 0;
  256.   return ret;
  257. }
  258.  
  259. /* braces.c -- code for doing word expansion in curly braces. Taken from
  260.    bash 1.14.5.  [Ans subsequently modified for kpatshea.]
  261.  
  262.    Copyright (C) 1987,1991 Free Software Foundation, Inc.
  263.  
  264.    This program is free software; you can redistribute it and/or modify it
  265.    under the terms of the GNU General Public License as published by
  266.    the Free Software Foundation; either version 1, or (at your option)
  267.    any later version.
  268.  
  269.    This program is distributed in the hope that it will be useful, but
  270.    WITHOUT ANY WARRANTY; without even the implied warranty of
  271.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  272.    General Public License for more details.
  273.  
  274.    You should have received a copy of the GNU General Public License
  275.    along with this program; see the file COPYING.  If not, write to the
  276.    Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  277.    MA 02111-1307, USA.  */
  278.  
  279.  
  280. #define brace_whitespace(c) (!(c) || (c) == ' ' || (c) == '\t' || (c) == '\n')
  281. #define savestring xstrdup
  282.  
  283. /* Basic idea:
  284.  
  285.    Segregate the text into 3 sections: preamble (stuff before an open brace),
  286.    postamble (stuff after the matching close brace) and amble (stuff after
  287.    preamble, and before postamble).  Expand amble, and then tack on the
  288.    expansions to preamble.  Expand postamble, and tack on the expansions to
  289.    the result so far.
  290.  */
  291.  
  292. /* The character which is used to separate arguments. */
  293. static int brace_arg_separator = ',';
  294.  
  295. static int brace_gobbler P3H(const_string, int *, int);
  296. static char **expand_amble P1H(const_string),
  297.             **array_concat P2H(string * , string *);
  298.  
  299. /* Return the length of ARRAY, a NULL terminated array of char *. */
  300. static int
  301. array_len P1C(char **, array)
  302. {
  303.   register int i;
  304.   for (i = 0; array[i]; i++);
  305.   return (i);
  306. }
  307.  
  308. /* Free the contents of ARRAY, a NULL terminated array of char *. */
  309. static void
  310. free_array P1C(char **, array)
  311. {
  312.   register int i = 0;
  313.  
  314.   if (!array) return;
  315.  
  316.   while (array[i])
  317.     free (array[i++]);
  318.   free (array);
  319. }
  320.  
  321. /* Allocate and return a new copy of ARRAY and its contents. */
  322. static char **
  323. copy_array P1C(char **, array)
  324. {
  325.   register int i;
  326.   int len;
  327.   char **new_array;
  328.  
  329.   len = array_len (array);
  330.  
  331.   new_array = (char **)xmalloc ((len + 1) * sizeof (char *));
  332.   for (i = 0; array[i]; i++)
  333.     new_array[i] = savestring (array[i]);
  334.   new_array[i] = (char *)NULL;
  335.  
  336.   return (new_array);
  337. }
  338.  
  339.  
  340. /* Return an array of strings; the brace expansion of TEXT. */
  341. static char **
  342. brace_expand P1C(const_string, text)
  343. {
  344.   register int start;
  345.   char *preamble, *amble;
  346.   const_string postamble;
  347.   char **tack, **result;
  348.   int i, c;
  349.  
  350.   /* Find the text of the preamble. */
  351.   i = 0;
  352.   c = brace_gobbler (text, &i, '{');
  353.  
  354.   preamble = xmalloc (i + 1);
  355.   strncpy (preamble, text, i);
  356.   preamble[i] = 0;
  357.  
  358.   result = xmalloc (2 * sizeof (char *));
  359.   result[0] = preamble;
  360.   result[1] = NULL;
  361.   
  362.   /* Special case.  If we never found an exciting character, then
  363.      the preamble is all of the text, so just return that. */
  364.   if (c != '{')
  365.     return (result);
  366.  
  367.   /* Find the amble.  This is the stuff inside this set of braces. */
  368.   start = ++i;
  369.   c = brace_gobbler (text, &i, '}');
  370.  
  371.   /* What if there isn't a matching close brace? */
  372.   if (!c)
  373.     {
  374.       WARNING1 ("%s: Unmatched {", text);
  375.       free (preamble);        /* Same as result[0]; see initialization. */
  376.       result[0] = savestring (text);
  377.       return (result);
  378.     }
  379.  
  380.   amble = xmalloc (1 + (i - start));
  381.   strncpy (amble, &text[start], (i - start));
  382.   amble[i - start] = 0;
  383.  
  384.   postamble = &text[i + 1];
  385.  
  386.   tack = expand_amble (amble);
  387.   result = array_concat (result, tack);
  388.   free (amble);
  389.   free_array (tack);
  390.  
  391.   tack = brace_expand (postamble);
  392.   result = array_concat (result, tack);
  393.   free_array (tack);
  394.  
  395.   return (result);
  396. }
  397.  
  398.  
  399. /* Expand the text found inside of braces.  We simply try to split the
  400.    text at BRACE_ARG_SEPARATORs into separate strings.  We then brace
  401.    expand each slot which needs it, until there are no more slots which
  402.    need it. */
  403. static char **
  404. expand_amble P1C(const_string, text)
  405. {
  406.   char **result, **partial;
  407.   char *tem;
  408.   int start, i, c;
  409.  
  410.   result = NULL;
  411.  
  412.   for (start = 0, i = 0, c = 1; c; start = ++i)
  413.     {
  414.       int c0, c1;
  415.       int i0, i1;
  416.       i0 = i;
  417.       c0 = brace_gobbler (text, &i0, brace_arg_separator);
  418.       i1 = i;
  419.       c1 = brace_gobbler (text, &i1, ENV_SEP);
  420.       c = c0 | c1;
  421.       i = (i0 < i1 ? i0 : i1);
  422.  
  423.       tem = xmalloc (1 + (i - start));
  424.       strncpy (tem, &text[start], (i - start));
  425.       tem[i- start] = 0;
  426.  
  427.       partial = brace_expand (tem);
  428.  
  429.       if (!result)
  430.     result = partial;
  431.       else
  432.     {
  433.       register int lr = array_len (result);
  434.       register int lp = array_len (partial);
  435.       register int j;
  436.  
  437.       result = xrealloc (result, (1 + lp + lr) * sizeof (char *));
  438.  
  439.       for (j = 0; j < lp; j++)
  440.         result[lr + j] = partial[j];
  441.  
  442.       result[lr + j] = NULL;
  443.       free (partial);
  444.     }
  445.       free (tem);
  446.     }
  447.   return (result);
  448. }
  449.  
  450. /* Return a new array of strings which is the result of appending each
  451.    string in ARR2 to each string in ARR1.  The resultant array is
  452.    len (arr1) * len (arr2) long.  For convenience, ARR1 (and its contents)
  453.    are free ()'ed.  ARR1 can be NULL, in that case, a new version of ARR2
  454.    is returned. */
  455. static char **
  456. array_concat P2C(string *, arr1,  string *, arr2)
  457. {
  458.   register int i, j, len, len1, len2;
  459.   register char **result;
  460.  
  461.   if (!arr1)
  462.     return (copy_array (arr2));
  463.  
  464.   if (!arr2)
  465.     return (copy_array (arr1));
  466.  
  467.   len1 = array_len (arr1);
  468.   len2 = array_len (arr2);
  469.  
  470.   result = xmalloc ((1 + (len1 * len2)) * sizeof (char *));
  471.  
  472.   len = 0;
  473.   for (i = 0; i < len2; i++)
  474.     {
  475.       int strlen_2 = strlen (arr2[i]);
  476.  
  477.       for (j = 0; j < len1; j++)
  478.     {
  479.       int strlen_1 = strlen (arr1[j]);
  480.  
  481.       result[len] =
  482.         xmalloc (1 + strlen_1 + strlen_2);
  483.       strcpy (result[len], arr1[j]);
  484.       strcpy (result[len] + strlen_1, arr2[i]);
  485.       len++;
  486.     }
  487.     }
  488.   free_array (arr1);
  489.  
  490.   result[len] = NULL;
  491.   return (result);
  492. }
  493.  
  494. /* Start at INDEX, and skip characters in TEXT. Set INDEX to the
  495.    index of the character matching SATISFY.  This understands about
  496.    quoting.  Return the character that caused us to stop searching;
  497.    this is either the same as SATISFY, or 0. */
  498. static int
  499. brace_gobbler P3C(const_string, text,  int *, indx,  int, satisfy)
  500. {
  501.   register int i, c, quoted, level, pass_next;
  502.  
  503.   level = quoted = pass_next = 0;
  504.  
  505.   for (i = *indx; (c = text[i]); i++)
  506.     {
  507.       if (pass_next)
  508.     {
  509.       pass_next = 0;
  510.       continue;
  511.     }
  512.  
  513.       /* A backslash escapes the next character.  This allows backslash to
  514.      escape the quote character in a double-quoted string. */
  515.       if (c == '\\' && (quoted == 0 || quoted == '"' || quoted == '`'))
  516.         {
  517.           pass_next = 1;
  518.           continue;
  519.         }
  520.  
  521.       if (quoted)
  522.     {
  523.       if (c == quoted)
  524.         quoted = 0;
  525.       continue;
  526.     }
  527.  
  528.       if (c == '"' || c == '\'' || c == '`')
  529.     {
  530.       quoted = c;
  531.       continue;
  532.     }
  533.       
  534.       if (c == satisfy && !level && !quoted)
  535.     {
  536.       /* We ignore an open brace surrounded by whitespace, and also
  537.          an open brace followed immediately by a close brace, that
  538.          was preceded with whitespace.  */
  539.       if (c == '{' &&
  540.           ((!i || brace_whitespace (text[i - 1])) &&
  541.            (brace_whitespace (text[i + 1]) || text[i + 1] == '}')))
  542.         continue;
  543.       /* If this is being compiled as part of bash, ignore the `{'
  544.          in a `${}' construct */
  545.       if ((c != '{') || !i || (text[i - 1] != '$'))
  546.         break;
  547.     }
  548.  
  549.       if (c == '{')
  550.     level++;
  551.       else if (c == '}' && level)
  552.     level--;
  553.     }
  554.  
  555.   *indx = i;
  556.   return (c);
  557. }
  558.  
  559. #if defined (TEST)
  560. #include <stdio.h>
  561.  
  562. fatal_error (format, arg1, arg2)
  563.      char *format, *arg1, *arg2;
  564. {
  565.   report_error (format, arg1, arg2);
  566.   exit (1);
  567. }
  568.  
  569. report_error (format, arg1, arg2)
  570.      char *format, *arg1, *arg2;
  571. {
  572.   fprintf (stderr, format, arg1, arg2);
  573.   fprintf (stderr, "\n");
  574. }
  575.  
  576. main ()
  577. {
  578.   char example[256];
  579.  
  580.   for (;;)
  581.     {
  582.       char **result;
  583.       int i;
  584.  
  585.       fprintf (stderr, "brace_expand> ");
  586.  
  587.       if ((!fgets (example, 256, stdin)) ||
  588.       (strncmp (example, "quit", 4) == 0))
  589.     break;
  590.  
  591.       if (strlen (example))
  592.     example[strlen (example) - 1] = 0;
  593.  
  594.       result = brace_expand (example);
  595.  
  596.       for (i = 0; result[i]; i++)
  597.     printf ("%s\n", result[i]);
  598.  
  599.       free_array (result);
  600.     }
  601. }
  602.  
  603. /*
  604.  * Local variables:
  605.  * test-compile-command: "gcc -g -DTEST -I.. -I. -o brace_expand braces.c -L. -lkpathsea"
  606.  * end:
  607.  */
  608.  
  609. #endif /* TEST */
  610.