//
// ParsedString.cc
//
// ParsedString: Contains a string. The string my contain $var, ${var}, $(var)
//               `filename`. The get method will expand those using the
//               dictionary given in argument.
// 
// Part of the ht://Dig package   <http://www.htdig.org/>
// Copyright (c) 1999-2004 The ht://Dig Group
// For copyright details, see the file COPYING in your distribution
// or the GNU Library General Public License (LGPL) version 2 or later 
// <http://www.gnu.org/copyleft/lgpl.html>
//
// $Id: ParsedString.cc,v 1.9 2004/05/28 13:15:21 lha Exp $
//

#ifdef HAVE_CONFIG_H
#include "htconfig.h"
#endif /* HAVE_CONFIG_H */

#include "ParsedString.h"

#include <ctype.h>
#include <stdio.h>


//*****************************************************************************
// ParsedString::ParsedString()
//
ParsedString::ParsedString()
{
}


//*****************************************************************************
//
ParsedString::ParsedString(const String& s)
{
    value = s;
}


//*****************************************************************************
// ParsedString::~ParsedString()
//
ParsedString::~ParsedString()
{
}


//*****************************************************************************
//
void
ParsedString::set(const String& str)
{
    value = str;
}


//*****************************************************************************
//   Return a fully parsed string.
//
//   Allowed syntax:
//       $var
//       ${var}
//       $(var)
//       `filename`
//
//   The filename can also contain variables
//
const String
ParsedString::get(const Dictionary &dict) const
{
  String		variable;
  String		parsed;
  ParsedString	*temp;
  const char		*str = value.get();
  char		delim = ' ';
  int			need_delim = 0;

  while (*str)
    {
      if (*str == '$')
        {
	  //
	  // A dollar sign starts a variable.
	  //
	  str++;
	  need_delim = 1;
	  if (*str == '{')
	    delim = '}';
	  else if (*str == '(')
	    delim = ')';
	  else
	    need_delim = 0;
	  if (need_delim)
	    str++;
	  variable.trunc();
	  while (isalnum(*str) || *str == '_' || *str == '-')
            {
	      variable << *str++;
            }
	  if (*str)
            {
	      if (need_delim && *str == delim)
                {
		  //
		  // Found end of variable
		  //
		  temp = (ParsedString *) dict[variable];
		  if (temp)
		    parsed << temp->get(dict);
		  str++;
                }
	      else if (need_delim)
                {
		  //
		  // Error.  Probably an illegal value in the name We'll
		  // assume the variable ended here.
		  //
		  temp = (ParsedString *) dict[variable];
		  if (temp)
		    parsed << temp->get(dict);
                }
	      else
                {
		  //
		  // This variable didn't have a delimiter.
		  //
		  temp = (ParsedString *) dict[variable];
		  if (temp)
		    parsed << temp->get(dict);
                }
            }
	  else
            {
	      //
	      // End of string reached.  We'll assume that this is also
	      // the end of the variable
	      //
	      temp = (ParsedString *) dict[variable];
	      if (temp)
		parsed << temp->get(dict);
            }
        }
      else if (*str == '`')
        {
	  //
	  // Back-quote delimits a filename which we need to insert
	  //
	  str++;
	  variable.trunc();
	  while (*str && *str != '`')
            {
	      variable << *str++;
            }
	  if (*str == '`')
	    str++;
	  ParsedString	filename(variable);
	  variable.trunc();
	  getFileContents(variable, filename.get(dict));
	  parsed << variable;
        }
      else if (*str == '\\')
        {
	  //
	  // Backslash escapes the next character
	  //
	  str++;
	  if (*str)
	    parsed << *str++;
        }
      else
        {
	  //
	  // Normal character
	  //
	  parsed << *str++;
        }
    }
  return parsed;
}


void
ParsedString::getFileContents(String &str, const String& filename) const
{
    FILE	*fl = fopen(filename, "r");
    char	buffer[1000];

    if (!fl)
        return;
    while (fgets(buffer, sizeof(buffer), fl))
    {
        String	s(buffer);
        s.chop("\r\n\t ");
        str << s << ' ';
    }
    str.chop(1);
    fclose(fl);
}