rlpParse.c

Go to the documentation of this file.

/** \file    rlpParse.c

  \brief Routines for parsing formulas

******************************************************************************/

#include "rlp.h"

/**AutomaticStart*************************************************************/

/*---------------------------------------------------------------------------*/
/* Static function prototypes                                                */
/*---------------------------------------------------------------------------*/

static int push (array_t * rule, char *attribute, char *value);

/**AutomaticEnd***************************************************************/


/**
  * \brief  Parse a string encoding a Layer 7 formula.
  * 
  * String is assumed to be well-formed. Returns an array_t
  * of rule components, which are attibute-value pairs.
  * 
  */

array_t *
Rlp_L7StringParse (char *l7Rule)
{
  char *linePtr = l7Rule;
  char *tmpPtr;
  char tmpbuf[10000];
  char *field;
  char *attribute, *value;
  int rlpDebug = false;

  array_t *aRule = array_alloc (Rlp_RuleComponent_t *, 0);

  while (true)
    {
      bool nocolon = false;

      tmpPtr = linePtr;
      while (true)
    {
      tmpPtr = strchr (tmpPtr, ';');
      if (tmpPtr == NULL)
        {
          goto finished;    // we're done, don't want to have two breaks
        }
      if (tmpPtr[-1] == '\\')
        {
          tmpPtr++;     // to get past the escaped ;
        }
      else
        {
          break;
        }
    }

      RLP_STRNCPY_TERMINATE (tmpbuf, linePtr, (tmpPtr - linePtr));
      linePtr = tmpPtr + 1; // move linePtr to the next field

      tmpPtr = strdup (tmpbuf);
      char *tmpPtr2 = tmpPtr;
      RLP_SKIP_SPACE (tmpPtr);
      field = strdup (tmpPtr);
      free (tmpPtr2);

      tmpPtr = field;
      while (true)
    {
      tmpPtr = strchr (tmpPtr, ':');
      if (tmpPtr == NULL)
        {
          nocolon = true;
          break;
        }
      if (tmpPtr[-1] == '\\')
        {
          tmpPtr++;
        }
      else
        {
          break;
        }
    }
      if (nocolon)
    {
      attribute = strdup (field);
      value = "NIL";
    }
      else
    {
      RLP_STRNCPY_TERMINATE (tmpbuf, field, (tmpPtr - field));
      attribute = strdup (tmpbuf);
      value = strdup (tmpPtr + 1);  // + 1 to move past the :
      RLP_SKIP_SPACE (value);
    }
      if (rlpDebug)
    {
      printf ("Attribute: %s ; Value : %s\n", attribute, value);
    }

      push (aRule, attribute, value);
    }
finished:return aRule;
}


/** \brief  Add a rule component to the back of an array of components */

static int
push (array_t * rule, char *attribute, char *value)
{
  Rlp_RuleComponent_t *aComponent =
    (Rlp_RuleComponent_t *) malloc (sizeof (Rlp_RuleComponent_t));
  aComponent->rawAttribute = attribute;
  aComponent->rawValue = value;

  array_insert_last (Rlp_RuleComponent_t *, rule, aComponent);

  return 1;
}