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

#include "msg.h"
#include "colors.h"
#include "html_common.hh"
#include "css.hh"
#include "cssparser.hh"

using namespace dw::core::style;

#define DEBUG_MSG(A, B, ...) _MSG(B, __VA_ARGS__)
#define MSG_CSS(A, ...) MSG(A, __VA_ARGS__)
#define DEBUG_TOKEN_LEVEL   0
#define DEBUG_PARSE_LEVEL   0
#define DEBUG_CREATE_LEVEL  0

#define DEBUG_LEVEL 10

/* Applies to symbol lengths and string literals. */
#define MAX_STR_LEN 256

static const char *const Css_border_style_enum_vals[] = {
   "none", "hidden", "dotted", "dashed", "solid", "double", "groove",
   "ridge", "inset", "outset", NULL
};

static const char *const Css_cursor_enum_vals[] = {
   "crosshair", "default", "pointer", "move", "e_resize", "ne_resize",
   "nw_resize", "n_resize", "se_resize", "sw_resize", "s_resize",
   "w_resize", "text", "wait", "help", NULL
};

static const char *const Css_display_enum_vals[DISPLAY_LAST + 1] = {
   "block", "inline", "list-item", "table", "table-row-group",
   "table-header-group", "table-footer-group", "table-row",
   "table-cell", NULL
};

static const char *const Css_font_style_enum_vals[] = {
   "normal", "italic", "oblique", NULL
};

static const char *const Css_list_style_type_enum_vals[] = {
   "disc", "circle", "square", "decimal", "decimal-leading-zero",
   "lower-roman", "upper-roman", "lower-greek", "lower-alpha",
   "lower-latin", "upper-alpha", "upper-latin", "hebrew", "armenian",
   "georgian", "cjk-ideographic", "hiragana", "katakana", "hiragana-iroha",
   "katakana-iroha", "none", NULL
};

static const char *const Css_text_align_enum_vals[] = {
   "left", "right", "center", "justify", "string", NULL
};

static const char *const Css_text_decoration_enum_vals[] = {
   "underline", "overline", "line-through", "blink", NULL
};

static const char *const Css_vertical_align_vals[] = {
   "top", "bottom", "middle", "baseline", "sub", "super", NULL
};

static const char *const Css_white_space_vals[] = {
   "normal", "pre", "nowrap", NULL
};

const CssPropertyInfo Css_property_info[CssProperty::CSS_PROPERTY_LAST] = {
   {"background-attachment", CSS_TYPE_UNUSED, NULL},
   {"background-color", CSS_TYPE_COLOR, NULL},
   {"background-image", CSS_TYPE_UNUSED, NULL},
   {"background-position", CSS_TYPE_UNUSED, NULL},
   {"background-repeat", CSS_TYPE_UNUSED, NULL},
   {"border-bottom-color", CSS_TYPE_COLOR, NULL},
   {"border-bottom-style", CSS_TYPE_ENUM, Css_border_style_enum_vals},
   {"border-bottom-width", CSS_TYPE_LENGTH, NULL},
   {"border-collapse", CSS_TYPE_UNUSED, NULL},
   {"border-left-color", CSS_TYPE_COLOR, NULL},
   {"border-left-style", CSS_TYPE_ENUM, Css_border_style_enum_vals},
   {"border-left-width", CSS_TYPE_LENGTH, NULL},
   {"border-right-color", CSS_TYPE_COLOR, NULL},
   {"border-right-style", CSS_TYPE_ENUM, Css_border_style_enum_vals},
   {"border-right-width", CSS_TYPE_LENGTH, NULL},
   {"border-spacing", CSS_TYPE_LENGTH, NULL},
   {"border-top-color", CSS_TYPE_COLOR, NULL},
   {"border-top-style", CSS_TYPE_ENUM, Css_border_style_enum_vals},
   {"border-top-width", CSS_TYPE_LENGTH, NULL},
   {"bottom", CSS_TYPE_UNUSED, NULL},
   {"caption-side", CSS_TYPE_UNUSED, NULL},
   {"clear", CSS_TYPE_UNUSED, NULL},
   {"clip", CSS_TYPE_UNUSED, NULL},
   {"color", CSS_TYPE_COLOR, NULL},
   {"content", CSS_TYPE_STRING, NULL},
   {"counter-increment", CSS_TYPE_UNUSED, NULL},
   {"counter-reset", CSS_TYPE_UNUSED, NULL},
   {"cursor", CSS_TYPE_ENUM, Css_cursor_enum_vals},
   {"direction", CSS_TYPE_UNUSED, NULL},
   {"display", CSS_TYPE_ENUM, Css_display_enum_vals},
   {"empty-cells", CSS_TYPE_UNUSED, NULL},
   {"float", CSS_TYPE_UNUSED, NULL},
   {"font-family", CSS_TYPE_SYMBOL, NULL},
   {"font-size", CSS_TYPE_LENGTH_PERCENTAGE, NULL},
   {"font-size-adjust", CSS_TYPE_UNUSED, NULL},
   {"font-stretch", CSS_TYPE_UNUSED, NULL},
   {"font-style", CSS_TYPE_ENUM, Css_font_style_enum_vals},
   {"font-variant", CSS_TYPE_UNUSED, NULL},
   {"font-weight", CSS_TYPE_FONT_WEIGHT, NULL},
   {"height", CSS_TYPE_LENGTH_PERCENTAGE, NULL},
   {"left", CSS_TYPE_UNUSED, NULL},
   {"letter-spacing", CSS_TYPE_UNUSED, NULL},
   {"line-height", CSS_TYPE_UNUSED, NULL},
   {"list-style-image", CSS_TYPE_UNUSED, NULL},
   {"list-style-position", CSS_TYPE_UNUSED, NULL},
   {"list-style-type", CSS_TYPE_ENUM, Css_list_style_type_enum_vals},
   {"margin-bottom", CSS_TYPE_LENGTH, NULL},
   {"margin-left", CSS_TYPE_LENGTH, NULL},
   {"margin-right", CSS_TYPE_LENGTH, NULL},
   {"margin-top", CSS_TYPE_LENGTH, NULL},
   {"marker-offset", CSS_TYPE_UNUSED, NULL},
   {"marks", CSS_TYPE_UNUSED, NULL},
   {"max-height", CSS_TYPE_UNUSED, NULL},
   {"max-width", CSS_TYPE_UNUSED, NULL},
   {"min-height", CSS_TYPE_UNUSED, NULL},
   {"min-width", CSS_TYPE_UNUSED, NULL},
   {"outline-color", CSS_TYPE_UNUSED, NULL},
   {"outline-style", CSS_TYPE_UNUSED, NULL},
   {"outline-width", CSS_TYPE_UNUSED, NULL},
   {"overflow", CSS_TYPE_UNUSED, NULL},
   {"padding-bottom", CSS_TYPE_LENGTH, NULL},
   {"padding-left", CSS_TYPE_LENGTH, NULL},
   {"padding-right", CSS_TYPE_LENGTH, NULL},
   {"padding-top", CSS_TYPE_LENGTH, NULL},
   {"position", CSS_TYPE_UNUSED, NULL},
   {"quotes", CSS_TYPE_UNUSED, NULL},
   {"right", CSS_TYPE_UNUSED, NULL},
   {"text-align", CSS_TYPE_ENUM, Css_text_align_enum_vals},
   {"text-decoration", CSS_TYPE_MULTI_ENUM, Css_text_decoration_enum_vals},
   {"text-indent", CSS_TYPE_UNUSED, NULL},
   {"text-shadow", CSS_TYPE_UNUSED, NULL},
   {"text-transform", CSS_TYPE_UNUSED, NULL},
   {"top", CSS_TYPE_UNUSED, NULL},
   {"unicode-bidi", CSS_TYPE_UNUSED, NULL},
   {"vertical-align", CSS_TYPE_ENUM, Css_vertical_align_vals},
   {"visibility", CSS_TYPE_UNUSED, NULL},
   {"white-space", CSS_TYPE_ENUM, Css_white_space_vals},
   {"width", CSS_TYPE_LENGTH_PERCENTAGE, NULL},
   {"word-spacing", CSS_TYPE_UNUSED, NULL},
   {"z-index", CSS_TYPE_UNUSED, NULL},

   /* These are extensions, for internal used, and never parsed. */
   {"x-link", CSS_TYPE_INTEGER, NULL},
   {"x-colspan", CSS_TYPE_INTEGER, NULL},
   {"x-rowspan", CSS_TYPE_INTEGER, NULL},

   {"last", CSS_TYPE_UNUSED, NULL},
};

typedef struct {
   const char *symbol;
   enum {
      CSS_SHORTHAND_MULTIPLE,   /* [ p1 || p2 || ...], the property pi is
                                 * determined  by the type */
      CSS_SHORTHAND_DIRECTIONS, /* <t>{1,4} */
      CSS_SHORTHAND_BORDER,     /* special, used for 'border' */
      CSS_SHORTHAND_FONT,       /* special, used for 'font' */
   } type;
   const CssProperty::Name * properties;/* CSS_SHORTHAND_MULTIPLE:
                                         *   must be terminated by -1
                                         * CSS_SHORTHAND_DIRECTIONS:
                                         *   must have length 4
                                         * CSS_SHORTHAND_BORDERS:
                                         *   must have length 12
                                         * CSS_SHORTHAND_FONT:
                                         *   unused */
} CssShorthandInfo;

const CssProperty::Name Css_background_properties[] = {
   CssProperty::CSS_PROPERTY_BACKGROUND_COLOR,
   CssProperty::CSS_PROPERTY_BACKGROUND_IMAGE,
   CssProperty::CSS_PROPERTY_BACKGROUND_REPEAT,
   CssProperty::CSS_PROPERTY_BACKGROUND_ATTACHMENT,
   CssProperty::CSS_PROPERTY_BACKGROUND_POSITION,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_border_bottom_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_COLOR,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_border_color_properties[4] = {
   CssProperty::CSS_PROPERTY_BORDER_TOP_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_COLOR
};

const CssProperty::Name Css_border_left_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_LEFT_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_COLOR,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_border_right_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_COLOR,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_border_style_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_TOP_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_STYLE
};

const CssProperty::Name Css_border_top_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_TOP_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_TOP_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_TOP_COLOR,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_border_width_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_TOP_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_WIDTH
};

const CssProperty::Name Css_list_style_properties[] = {
   CssProperty::CSS_PROPERTY_LIST_STYLE_TYPE,
   CssProperty::CSS_PROPERTY_LIST_STYLE_POSITION,
   CssProperty::CSS_PROPERTY_LIST_STYLE_IMAGE,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_margin_properties[] = {
   CssProperty::CSS_PROPERTY_MARGIN_TOP,
   CssProperty::CSS_PROPERTY_MARGIN_BOTTOM,
   CssProperty::CSS_PROPERTY_MARGIN_LEFT,
   CssProperty::CSS_PROPERTY_MARGIN_RIGHT
};

const CssProperty::Name Css_outline_properties[] = {
   CssProperty::CSS_PROPERTY_OUTLINE_COLOR,
   CssProperty::CSS_PROPERTY_OUTLINE_STYLE,
   CssProperty::CSS_PROPERTY_OUTLINE_WIDTH,
   (CssProperty::Name) - 1
};

const CssProperty::Name Css_padding_properties[] = {
   CssProperty::CSS_PROPERTY_PADDING_TOP,
   CssProperty::CSS_PROPERTY_PADDING_BOTTOM,
   CssProperty::CSS_PROPERTY_PADDING_LEFT,
   CssProperty::CSS_PROPERTY_PADDING_RIGHT
};

const CssProperty::Name Css_border_properties[] = {
   CssProperty::CSS_PROPERTY_BORDER_TOP_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_TOP_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_TOP_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_BOTTOM_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_LEFT_COLOR,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_WIDTH,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_STYLE,
   CssProperty::CSS_PROPERTY_BORDER_RIGHT_COLOR
};

const CssProperty::Name Css_font_properties[] = {
   CssProperty::CSS_PROPERTY_FONT_SIZE,
   CssProperty::CSS_PROPERTY_FONT_STYLE,
   CssProperty::CSS_PROPERTY_FONT_VARIANT,
   CssProperty::CSS_PROPERTY_FONT_WEIGHT,
   CssProperty::CSS_PROPERTY_FONT_FAMILY,
   (CssProperty::Name) - 1
};

static const CssShorthandInfo Css_shorthand_info[] = {
   {"background", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_background_properties},
   {"border", CssShorthandInfo::CSS_SHORTHAND_BORDER,
    Css_border_properties},
   {"border-bottom", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_border_bottom_properties},
   {"border-color", CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS,
    Css_border_color_properties},
   {"border-left", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_border_left_properties},
   {"border-right", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_border_right_properties},
   {"border-style", CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS,
    Css_border_style_properties},
   {"border-top", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_border_top_properties},
   {"border-width", CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS,
    Css_border_width_properties},
   {"font", CssShorthandInfo::CSS_SHORTHAND_FONT,
    Css_font_properties},
   {"list-style", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_list_style_properties},
   {"margin", CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS,
    Css_margin_properties},
   {"outline", CssShorthandInfo::CSS_SHORTHAND_MULTIPLE,
    Css_outline_properties},
   {"padding", CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS,
    Css_padding_properties},
};

#define CSS_SHORTHAND_NUM (sizeof(Css_shorthand_info) / sizeof(CssShorthandInfo))

/* ----------------------------------------------------------------------
 *    Initialization, Cleanup
 * ---------------------------------------------------------------------- */

static int values_num;

void a_Css_init(void)
{
   values_num = 0;
}

void a_Css_freeall(void)
{
   if (values_num)
      fprintf(stderr, "%d CSS values left", values_num);
}

/* ----------------------------------------------------------------------
 *    Parsing
 * ---------------------------------------------------------------------- */

typedef enum {
   CSS_TK_DECINT, CSS_TK_FLOAT, CSS_TK_COLOR, CSS_TK_SYMBOL, CSS_TK_STRING,
   CSS_TK_CHAR, CSS_TK_END
} CssTokenType;

typedef struct {
   CssContext *context;
   int order_count;
   CssOrigin origin;

   const char *buf;
   int buflen, bufptr;

   CssTokenType ttype;
   char tval[MAX_STR_LEN];
   bool within_block;
   bool space_separated; /* used when parsing CSS selectors */
} CssParser;

/*
 * Gets the next character from the buffer, or EOF.
 */
static int Css_getc(CssParser * parser)
{
   int c;

   if (parser->bufptr >= parser->buflen)
      c = EOF;
   else
      c = parser->buf[parser->bufptr];

   /* The buffer pointer is increased in any case, so that Css_ungetc works
    * correctly at the end of the buffer. */
   parser->bufptr++;
   return c;
}

/*
 * Undoes the last Css_getc().
 */
static void Css_ungetc(CssParser * parser)
{
   parser->bufptr--;
}

static void Css_next_token(CssParser * parser)
{
   int c, c1, d, i, j;
   bool point_allowed;
   char hexbuf[5];
   bool escaped;

   parser->space_separated = false;

   c = Css_getc(parser);

   while (true) {
      if (isspace(c)) { // ignore whitespace
         parser->space_separated = true;
         c = Css_getc(parser);
      } else if (c == '/') { // ignore comments
         d = Css_getc(parser);
         if (d == '*') {
            c = Css_getc(parser);
            d = Css_getc(parser);
            while (d != EOF && (c != '*' || d != '/')) {
               c = d;
               d = Css_getc(parser);
            }
            c = Css_getc(parser);
         } else {
            Css_ungetc(parser);
            break;
         }
      } else {
         break;
      }
   }

   if (isdigit(c)) {
      parser->ttype = CSS_TK_DECINT;
      point_allowed = true;

      parser->tval[0] = c;
      i = 1;
      c = Css_getc(parser);
      while (isdigit(c) || (point_allowed && c == '.')) {
         if (c == '.') {
            parser->ttype = CSS_TK_FLOAT;
            point_allowed = false;      /* Only one point read. */
         }

         if (i < MAX_STR_LEN - 1) {
            parser->tval[i] = c;
            i++;
         }
         /* else silently truncated */
         c = Css_getc(parser);
      }
      parser->tval[i] = 0;
      Css_ungetc(parser);

      DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token number %s\n", parser->tval);
      return;
   }

   if (isalpha(c) || c == '_' || c == '-') {
      parser->ttype = CSS_TK_SYMBOL;

      parser->tval[0] = c;
      i = 1;
      c = Css_getc(parser);
      while (isalnum(c) || c == '_' || c == '-') {
         if (i < MAX_STR_LEN - 1) {
            parser->tval[i] = c;
            i++;
         }                      /* else silently truncated */
         c = Css_getc(parser);
      }
      parser->tval[i] = 0;
      Css_ungetc(parser);
      DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token symbol '%s'\n", parser->tval);
      return;
   }

   if (c == '"' || c == '\'') {
      c1 = c;
      parser->ttype = CSS_TK_STRING;

      i = 0;
      c = Css_getc(parser);
      escaped = false;

      while (c != EOF && (escaped || c != c1)) {
         if (c == '\\') {
            escaped = true;
            d = Css_getc(parser);
            if (isxdigit(d)) {
               /* Read hex Unicode char. (Actually, strings are yet only 8 
                * bit.) */
               hexbuf[0] = d;
               j = 1;
               d = Css_getc(parser);
               while (j < 4 && isxdigit(d)) {
                  hexbuf[j] = d;
                  j++;
                  d = Css_getc(parser);
               }
               hexbuf[j] = 0;
               Css_ungetc(parser);
               c = strtol(hexbuf, NULL, 16);
            } else
               /* Take next character literally. */
               c = Css_getc(parser);
         } else
            escaped = false;

         if (i < MAX_STR_LEN - 1) {
            parser->tval[i] = c;
            i++;
         }                      /* else silently truncated */
         c = Css_getc(parser);
      }
      parser->tval[i] = 0;
      /* No Css_ungetc(). */
      DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token string '%s'\n", parser->tval);
      return;
   }

   /*
    * Within blocks, '#' starts a color, outside, it is used in selectors.
    */
   if (c == '#' && parser->within_block) {
      parser->ttype = CSS_TK_COLOR;

      parser->tval[0] = c;
      i = 1;
      c = Css_getc(parser);
      while (isxdigit(c)) {
         if (i < MAX_STR_LEN - 1) {
            parser->tval[i] = c;
            i++;
         }                      /* else silently truncated */
         c = Css_getc(parser);
      }
      parser->tval[i] = 0;
      Css_ungetc(parser);
      DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token color '%s'\n", parser->tval);
      return;
   }

   if (c == EOF) {
      DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token %s\n", "EOF");
      parser->ttype = CSS_TK_END;
      return;
   }

   parser->ttype = CSS_TK_CHAR;
   parser->tval[0] = c;
   parser->tval[1] = 0;
   DEBUG_MSG(DEBUG_TOKEN_LEVEL, "token char '%c'\n", c);
}


static bool Css_token_matches_property(CssParser * parser,
                                       CssProperty::Name prop)
{
   int i, err = 1;

   switch (Css_property_info[prop].type) {
   case CSS_TYPE_ENUM:
      if (parser->ttype == CSS_TK_SYMBOL) {
         for (i = 0; Css_property_info[prop].enum_symbols[i]; i++)
            if (strcmp(parser->tval,
                       Css_property_info[prop].enum_symbols[i]) == 0)
               return true;
      }
      return false;

   case CSS_TYPE_MULTI_ENUM:
      if (parser->ttype == CSS_TK_SYMBOL) {
         if (strcmp(parser->tval, "none") != 0)
            return true;
         else {
            for (i = 0; Css_property_info[prop].enum_symbols[i]; i++) {
               if (strcmp(parser->tval,
                          Css_property_info[prop].enum_symbols[i]) == 0)
                  return true;
            }
         }
      }
      return true;

   case CSS_TYPE_LENGTH_PERCENTAGE:
   case CSS_TYPE_LENGTH:
      return parser->ttype == CSS_TK_DECINT ||
          parser->ttype == CSS_TK_FLOAT || (parser->ttype == CSS_TK_SYMBOL
                                            && strcmp(parser->tval,
                                                      "auto") == 0);

   case CSS_TYPE_COLOR:
      return (parser->ttype == CSS_TK_COLOR ||
              parser->ttype == CSS_TK_SYMBOL) &&
          a_Color_parse(parser->tval, -1, &err) != -1;

   case CSS_TYPE_STRING:
      return parser->ttype == CSS_TK_STRING;

   case CSS_TYPE_SYMBOL:
      return parser->ttype == CSS_TK_SYMBOL || parser->ttype == CSS_TK_STRING;

   case CSS_TYPE_FONT_WEIGHT:
      if (parser->ttype == CSS_TK_DECINT) {
         i = atoi(parser->tval);
         return i >= 100 && i <= 900;
      } else
         return (parser->ttype == CSS_TK_SYMBOL &&
                 (strcmp(parser->tval, "normal") == 0 ||
                  strcmp(parser->tval, "bold") == 0 ||
                  strcmp(parser->tval, "bolder") == 0 ||
                  strcmp(parser->tval, "lighter") == 0));
      break;

   case CSS_TYPE_UNUSED:
      return false;

   case CSS_TYPE_INTEGER:
      /* Not used for parser values. */
   default:
      assert(false);
      return false;
   }
}

static bool Css_parse_value(CssParser * parser,
                            CssProperty::Name prop,
                            CssProperty::Value * val)
{
   int i, lentype;
   bool found, ret = false;
   float fval;
   int ival, err = 1;

   switch (Css_property_info[prop].type) {
   case CSS_TYPE_ENUM:
      if (parser->ttype == CSS_TK_SYMBOL) {
         for (i = 0; Css_property_info[prop].enum_symbols[i]; i++)
            if (strcmp(parser->tval,
                       Css_property_info[prop].enum_symbols[i]) == 0) {
               val->intVal = i;
               ret = true;
               break;
            }
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_MULTI_ENUM:
      val->intVal = 0;
      ret = true;

      while (parser->ttype == CSS_TK_SYMBOL) {
         if (strcmp(parser->tval, "none") != 0) {
            for (i = 0, found = false;
                 !found && Css_property_info[prop].enum_symbols[i]; i++) {
               if (strcmp(parser->tval,
                          Css_property_info[prop].enum_symbols[i]) == 0)
                  val->intVal |= (1 << i);
            }
         }
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_LENGTH_PERCENTAGE:
   case CSS_TYPE_LENGTH:
      if (parser->ttype == CSS_TK_DECINT || parser->ttype == CSS_TK_FLOAT) {
         fval = atof(parser->tval);
         lentype = CSS_LENGTH_TYPE_PX;  /* Actually, there must be a unit,
                                         * except for num == 0. */

         ret = true;

         Css_next_token(parser);
         if (parser->ttype == CSS_TK_SYMBOL) {
            if (strcmp(parser->tval, "px") == 0) {
               lentype = CSS_LENGTH_TYPE_PX;
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "mm") == 0) {
               lentype = CSS_LENGTH_TYPE_MM;
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "cm") == 0) {
               lentype = CSS_LENGTH_TYPE_MM;
               fval *= 10;
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "in") == 0) {
               lentype = CSS_LENGTH_TYPE_MM;
               fval *= 25.4;
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "pt") == 0) {
               lentype = CSS_LENGTH_TYPE_MM;
               fval *= (25.4 / 72);
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "pc") == 0) {
               lentype = CSS_LENGTH_TYPE_MM;
               fval *= (25.4 / 6);
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "em") == 0) {
               lentype = CSS_LENGTH_TYPE_EM;
               Css_next_token(parser);
            } else if (strcmp(parser->tval, "ex") == 0) {
               lentype = CSS_LENGTH_TYPE_EX;
               Css_next_token(parser);
            }
         } else if (Css_property_info[prop].type ==
                    CSS_TYPE_LENGTH_PERCENTAGE &&
                    parser->ttype == CSS_TK_CHAR &&
                    parser->tval[0] == '%') {
            fval /= 100;
            lentype = CSS_LENGTH_TYPE_PERCENTAGE;
            Css_next_token(parser);
         }

         val->intVal = CSS_CREATE_LENGTH(fval, lentype);
      } else if (parser->ttype == CSS_TK_SYMBOL &&
                 strcmp(parser->tval, "auto") == 0) {
         ret = true;
         val->intVal = CSS_LENGTH_TYPE_AUTO;
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_COLOR:
      if (parser->ttype == CSS_TK_COLOR) {
         val->intVal = a_Color_parse(parser->tval, -1, &err);
         if (err)
            MSG_CSS("color is not in \"%s\" format\n", "#RRGGBB");
         else
            ret = true;
         Css_next_token(parser);
      } else if (parser->ttype == CSS_TK_SYMBOL) {
         val->intVal = a_Color_parse(parser->tval, -1, &err);
         if (err)
            MSG_CSS("color is not in \"%s\" format\n", "#RRGGBB");
         else
            ret = true;
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_STRING:
      if (parser->ttype == CSS_TK_STRING) {
         val->strVal = dStrdup(parser->tval);
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_SYMBOL:
      if (parser->ttype == CSS_TK_SYMBOL || parser->ttype == CSS_TK_STRING) {
         val->strVal = dStrdup(parser->tval);
         ret = true;
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_FONT_WEIGHT:
      ival = 0;
      if (parser->ttype == CSS_TK_DECINT) {
         ival = atoi(parser->tval);
         if (ival < 100 || ival > 900)
            /* invalid */
            ival = 0;
      } else if (parser->ttype == CSS_TK_SYMBOL) {
         if (strcmp(parser->tval, "normal") == 0)
            ival = CssProperty::CSS_FONT_WEIGHT_NORMAL;
         if (strcmp(parser->tval, "bold") == 0)
            ival = CssProperty::CSS_FONT_WEIGHT_BOLD;
         if (strcmp(parser->tval, "bolder") == 0)
            ival = CssProperty::CSS_FONT_WEIGHT_BOLDER;
         if (strcmp(parser->tval, "lighter") == 0)
            ival = CssProperty::CSS_FONT_WEIGHT_LIGHTER;
      }

      if (ival != 0) {
         val->intVal = ival;
         ret = true;
         Css_next_token(parser);
      }
      break;

   case CSS_TYPE_UNUSED:
      /* nothing */
      break;

   case CSS_TYPE_INTEGER:
      /* Not used for parser values. */
   default:
      assert(false);            /* not reached */
   }

   return ret;
}

static bool Css_parse_weight(CssParser * parser)
{
   if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == '!') {
      Css_next_token(parser);
      if (parser->ttype == CSS_TK_SYMBOL &&
          strcmp(parser->tval, "important") == 0) {
         Css_next_token(parser);
         return true;
      }
   }

   return false;
}

/*
 * bsearch(3) compare function for searching properties
 */
static int Css_property_info_cmp(const void *a, const void *b)
{
   return strcmp(((CssPropertyInfo *) a)->symbol,
                 ((CssPropertyInfo *) b)->symbol);
}


/*
 * bsearch(3) compare function for searching shorthands
 */
static int Css_shorthand_info_cmp(const void *a, const void *b)
{
   return strcmp(((CssShorthandInfo *) a)->symbol,
                 ((CssShorthandInfo *) b)->symbol);
}

static void Css_parse_declaration(CssParser * parser,
                                  CssPropertyList * props,
                                  CssPropertyList * importantProps)
{
   CssPropertyInfo pi, *pip;
   CssShorthandInfo si, *sip;

   CssProperty::Name prop;
   CssProperty::Value val, dir_vals[4];
   bool found, weight;
   int sh_index, i, j, n;
   int dir_set[4][4] = {
      /* 1 value  */ {0, 0, 0, 0},
      /* 2 values */ {0, 0, 1, 1},
      /* 3 values */ {0, 2, 1, 1},
      /* 4 values */ {0, 2, 3, 1}
   };

   if (parser->ttype == CSS_TK_SYMBOL) {
      pi.symbol = parser->tval;
      pip =
          (CssPropertyInfo *) bsearch(&pi, Css_property_info,
                                      CSS_NUM_PARSED_PROPERTIES,
                                      sizeof(CssPropertyInfo),
                                      Css_property_info_cmp);
      if (pip) {
         prop = (CssProperty::Name) (pip - Css_property_info);
         Css_next_token(parser);
         if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == ':') {
            Css_next_token(parser);
            if (Css_parse_value(parser, prop, &val)) {
               weight = Css_parse_weight(parser);
               if (weight && importantProps)
                  importantProps->set(prop, val);
               else
                  props->set(prop, val);
            }
         }
      } else {
         /* Try shorthands. */
         si.symbol = parser->tval;
         sip =
             (CssShorthandInfo *) bsearch(&pi, Css_shorthand_info,
                                          CSS_SHORTHAND_NUM,
                                          sizeof(CssShorthandInfo),
                                          Css_shorthand_info_cmp);
         if (sip) {
            sh_index = sip - Css_shorthand_info;
            Css_next_token(parser);
            if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == ':') {
               Css_next_token(parser);

               switch (Css_shorthand_info[sh_index].type) {

               case CssShorthandInfo::CSS_SHORTHAND_FONT:
                  /* \todo Implement details. */
               case CssShorthandInfo::CSS_SHORTHAND_MULTIPLE:
                  do {
                     for (found = false, i = 0;
                          !found &&
                          Css_shorthand_info[sh_index].properties[i] != -1;
                          i++)
                        if (Css_token_matches_property(parser,
                                                       Css_shorthand_info
                                                       [sh_index].
                                                       properties[i])) {
                           found = true;
                           DEBUG_MSG(DEBUG_PARSE_LEVEL,
                                     "will assign to '%s'\n",
                                     Css_property_info
                                     [Css_shorthand_info[sh_index]
                                      .properties[i]].symbol);
                           if (Css_parse_value(parser,
                                               Css_shorthand_info[sh_index]
                                               .properties[i], &val)) {
                              weight = Css_parse_weight(parser);
                              if (weight && importantProps)
                                 importantProps->
                                     set(Css_shorthand_info[sh_index].
                                         properties[i], val);
                              else
                                 props->set(Css_shorthand_info[sh_index].
                                            properties[i], val);
                           }
                        }
                  } while (found);
                  break;

               case CssShorthandInfo::CSS_SHORTHAND_DIRECTIONS:
                  n = 0;
                  while (n < 4) {
                     if (Css_token_matches_property(parser,
                                                    Css_shorthand_info
                                                    [sh_index].
                                                    properties[0]) &&
                         Css_parse_value(parser,
                                         Css_shorthand_info[sh_index]
                                         .properties[0], &val)) {
                        dir_vals[n] = val;
                        n++;
                     } else
                        break;
                  }

                  weight = Css_parse_weight(parser);
                  if (n > 0) {
                     for (i = 0; i < 4; i++)
                        if (weight && importantProps)
                           importantProps->set(Css_shorthand_info[sh_index]
                                               .properties[i],
                                               dir_vals[dir_set[n - 1]
                                                        [i]]);
                        else
                           props->set(Css_shorthand_info[sh_index]
                                      .properties[i],
                                      dir_vals[dir_set[n - 1][i]]);
                  } else
                     MSG_CSS("no values for shorthand property '%s'\n",
                             Css_shorthand_info[sh_index].symbol);

                  break;

               case CssShorthandInfo::CSS_SHORTHAND_BORDER:
                  do {
                     for (found = false, i = 0;
                          !found && i < 3;
                          i++)
                        if (Css_token_matches_property(parser,
                                                       Css_shorthand_info
                                                       [sh_index].
                                                       properties[i])) {
                           found = true;
                           if (Css_parse_value(parser,
                                               Css_shorthand_info[sh_index]
                                               .properties[i], &val)) {
                              weight = Css_parse_weight(parser);
                              for (j = 0; j < 4; j++)
                                 if (weight && importantProps)
                                    importantProps->
                                       set(Css_shorthand_info[sh_index].
                                          properties[j * 3 + i], val);
                                 else
                                    props->set(Css_shorthand_info[sh_index].
                                       properties[j * 3 + i], val);
                           }
                        }
                  } while (found);
                  break;
               }
            }
         }
      }
   }

   /* Skip all tokens until the expected end. */
   while (!(parser->ttype == CSS_TK_END ||
            (parser->ttype == CSS_TK_CHAR &&
             (parser->tval[0] == ';' || parser->tval[0] == '}'))))
      Css_next_token(parser);

   if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == ';')
      Css_next_token(parser);
}

static bool Css_parse_simple_selector(CssParser * parser,
                                      CssSimpleSelector *selector) {
   char *p, **pp;

   if (parser->ttype == CSS_TK_SYMBOL) {
      selector->element = a_Html_tag_index(parser->tval);
      Css_next_token(parser);
      if (parser->space_separated)
         return true;
   } else if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == '*') {
      selector->element = CssSimpleSelector::ELEMENT_ANY;
      Css_next_token(parser);
      if (parser->space_separated)
         return true;
   } else if (parser->ttype == CSS_TK_CHAR && 
              (parser->tval[0] == '#' ||
               parser->tval[0] == '.' ||
               parser->tval[0] == ':')) {
      // nothing to be done in this case
   } else {
      return false;
   }

   do {
      pp = NULL;
      if (parser->ttype == CSS_TK_CHAR) {
         switch (parser->tval[0]) {
            case '#':
               pp = &selector->id;
               break;
            case '.':
               pp = &selector->klass;
               break;
            case ':':
               pp = &selector->pseudo;
               if (*pp)
                  // pseudo class has been set already.
                  // As dillo currently only supports :link and :visisted, a
                  // selector with more than one pseudo class will never match.
                  // By returning false, the whole CssRule will be dropped.
                  // \todo adapt this when supporting :hover, :active...
                  return false;
               break;
         }
      }

      if (pp) {
         Css_next_token(parser);
         if (parser->space_separated)
            return true;

         if (parser->ttype == CSS_TK_SYMBOL ||
            parser->ttype == CSS_TK_DECINT) {
               if (*pp == NULL)
                  *pp = dStrdup(parser->tval);
               Css_next_token(parser);
         } else if (parser->ttype == CSS_TK_FLOAT) {
            /* In this case, we are actually interested in three tokens:
             * number, '.', number. Instead, we have a decimal fraction,
             * which we split up again. */
            p = strchr(parser->tval, '.');
            if (*pp == NULL)
               *pp = dStrndup(parser->tval, p - parser->tval);
            if (selector->klass == NULL)
               selector->klass = dStrdup(p + 1);
            Css_next_token(parser);
         }
         if (parser->space_separated)
            return true;
      }
   } while (pp);

   DEBUG_MSG(DEBUG_PARSE_LEVEL, "end of simple selector (%s, %s, %s, %d)\n",
      selector->id, selector->klass,
      selector->pseudo, selector->element);

   return true;
}

static CssSelector *Css_parse_selector(CssParser * parser) {
   CssSelector *selector = new CssSelector ();

   while (true) {
      if (! Css_parse_simple_selector (parser, selector->top ())) {
         delete selector;
         selector = NULL;
         break;
      }

      if (parser->ttype == CSS_TK_CHAR &&
         (parser->tval[0] == ',' || parser->tval[0] == '{')) {
         break;
      } else if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == '>') {
         selector->addSimpleSelector (CssSelector::CHILD);
         Css_next_token(parser);
      } else if (parser->ttype != CSS_TK_END && parser->space_separated) {
         selector->addSimpleSelector (CssSelector::DESCENDANT);
      } else {
         delete selector;
         selector = NULL;
         break;
      }
   }

   while (parser->ttype != CSS_TK_END &&
          (parser->ttype != CSS_TK_CHAR ||
           (parser->tval[0] != ',' && parser->tval[0] != '{')))
         Css_next_token(parser);

   return selector;
}

static void Css_parse_ruleset(CssParser * parser)
{
   lout::misc::SimpleVector < CssSelector * >*list;
   CssPropertyList *props, *importantProps;
   CssSelector *selector;

   list = new lout::misc::SimpleVector < CssSelector * >(1);

   while (true) {
      selector = Css_parse_selector(parser);

      if (selector) {
         selector->ref();
         list->increase();
         list->set(list->size() - 1, selector);
      }

      if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == ',')
         /* To read the next token. */
         Css_next_token(parser);
      else
         /* No more selectors. */
         break;
   }

   DEBUG_MSG(DEBUG_PARSE_LEVEL, "end of %s\n", "selectors");

   props = new CssPropertyList(true);
   props->ref();
   importantProps = new CssPropertyList(true);
   importantProps->ref();

   /* Read block. ('{' has already been read.) */
   if (parser->ttype != CSS_TK_END) {
      parser->within_block = true;
      Css_next_token(parser);
      do
         Css_parse_declaration(parser, props, importantProps);
      while (!(parser->ttype == CSS_TK_END ||
               (parser->ttype == CSS_TK_CHAR && parser->tval[0] == '}')));
      parser->within_block = false;
   }

   for (int i = 0; i < list->size(); i++) {
      CssSelector *s = list->get(i);

      if (parser->origin == CSS_ORIGIN_USER_AGENT) {
         parser->context->addRule(new CssRule(s, props),
                                  CSS_PRIMARY_USER_AGENT);
      } else if (parser->origin == CSS_ORIGIN_USER) {
         parser->context->addRule(new CssRule(s, props), CSS_PRIMARY_USER);
         parser->context->addRule(new CssRule(s, importantProps),
                                  CSS_PRIMARY_USER_IMPORTANT);
      } else if (parser->origin == CSS_ORIGIN_AUTHOR) {
         parser->context->addRule(new CssRule(s, props),
                                  CSS_PRIMARY_AUTHOR);
         parser->context->addRule(new CssRule(s, importantProps),
                                  CSS_PRIMARY_AUTHOR_IMPORTANT);
      }

      s->unref();
   }

   props->unref();
   importantProps->unref();

   delete list;

   if (parser->ttype == CSS_TK_CHAR && parser->tval[0] == '}')
      Css_next_token(parser);
}

void a_Css_parse(CssContext * context,
                 const char *buf,
                 int buflen, int order_count, CssOrigin origin)
{
   CssParser parser;

   parser.context = context;
   parser.buf = buf;
   parser.buflen = buflen;
   parser.bufptr = 0;
   parser.order_count = 0;
   parser.origin = origin;
   parser.within_block = false;
   parser.space_separated = false;

   Css_next_token(&parser);
   while (parser.ttype != CSS_TK_END)
      Css_parse_ruleset(&parser);
}

CssPropertyList *a_Css_parse_declaration(const char *buf, int buflen)
{
   CssPropertyList *props = new CssPropertyList ();
   CssParser parser;

   parser.context = NULL;
   parser.buf = buf;
   parser.buflen = buflen;
   parser.bufptr = 0;
   parser.order_count = 0;
   parser.origin = CSS_ORIGIN_AUTHOR;
   parser.within_block = true;
   parser.space_separated = false;

   Css_next_token(&parser);
   do
      Css_parse_declaration(&parser, props, NULL);
   while (!(parser.ttype == CSS_TK_END ||
         (parser.ttype == CSS_TK_CHAR && parser.tval[0] == '}')));

   if (props->size () == 0) {
      delete props;
      props = NULL;
   }

   return props;
}