simple properties split in parse similar to select in preparation for future generation

svn path=/trunk/libcss/; revision=11188

1 files changed, 182 insertions, 0 deletions

diff --git a/src/parse/properties/voice_family.c b/src/parse/properties/voice_family.c
new file mode 100644
index 0000000..beca662
--- /dev/null
+++ b/src/parse/properties/voice_family.c
@@ -0,0 +1,182 @@
+/*
+ * This file is part of LibCSS.
+ * Licensed under the MIT License,
+ *		  http://www.opensource.org/licenses/mit-license.php
+ * Copyright 2009 John-Mark Bell <jmb@netsurf-browser.org>
+ */
+
+#include <assert.h>
+#include <string.h>
+
+#include "bytecode/bytecode.h"
+#include "bytecode/opcodes.h"
+#include "parse/properties/properties.h"
+#include "parse/properties/utils.h"
+
+/**
+ * Determine if a given voice-family ident is reserved
+ *
+ * \param c	 Parsing context
+ * \param ident	 IDENT to consider
+ * \return True if IDENT is reserved, false otherwise
+ */
+static bool voice_family_reserved(css_language *c, const css_token *ident)
+{
+	bool match;
+
+	return (lwc_string_caseless_isequal(
+			ident->idata, c->strings[MALE],
+			&match) == lwc_error_ok && match) ||
+		(lwc_string_caseless_isequal(
+			ident->idata, c->strings[FEMALE],
+			&match) == lwc_error_ok && match) ||
+		(lwc_string_caseless_isequal(
+			ident->idata, c->strings[CHILD],
+			&match) == lwc_error_ok && match);
+}
+
+/**
+ * Convert a voice-family token into a bytecode value
+ *
+ * \param c	 Parsing context
+ * \param token	 Token to consider
+ * \return Bytecode value
+ */
+static uint16_t voice_family_value(css_language *c, const css_token *token)
+{
+	uint16_t value;
+	bool match;
+
+	if (token->type == CSS_TOKEN_IDENT) {
+		if ((lwc_string_caseless_isequal(
+				token->idata, c->strings[MALE],
+				&match) == lwc_error_ok && match))
+			value = VOICE_FAMILY_MALE;
+		else if ((lwc_string_caseless_isequal(
+				token->idata, c->strings[FEMALE],
+				&match) == lwc_error_ok && match))
+			value = VOICE_FAMILY_FEMALE;
+		else if ((lwc_string_caseless_isequal(
+				token->idata, c->strings[CHILD],
+				&match) == lwc_error_ok && match))
+			value = VOICE_FAMILY_CHILD;
+		else
+			value = VOICE_FAMILY_IDENT_LIST;
+	} else {
+		value = VOICE_FAMILY_STRING;
+	}
+
+	return value;
+}
+
+/**
+ * Parse voice-family
+ *
+ * \param c	  Parsing context
+ * \param vector  Vector of tokens to process
+ * \param ctx	  Pointer to vector iteration context
+ * \param result  Pointer to location to receive resulting style
+ * \return CSS_OK on success,
+ *	 CSS_NOMEM on memory exhaustion,
+ *	 CSS_INVALID if the input is not valid
+ *
+ * Post condition: \a *ctx is updated with the next token to process
+ *		 If the input is invalid, then \a *ctx remains unchanged.
+ */
+css_error parse_voice_family(css_language *c, 
+		const parserutils_vector *vector, int *ctx, 
+		css_style **result)
+{
+	int orig_ctx = *ctx;
+	css_error error;
+	const css_token *token;
+	uint8_t flags = 0;
+	uint16_t value = 0;
+	uint32_t opv;
+	uint32_t required_size = sizeof(opv);
+	int temp_ctx = *ctx;
+	uint8_t *ptr;
+	bool match;
+
+	/* [ IDENT+ | STRING ] [ ',' [ IDENT+ | STRING ] ]* | IDENT(inherit)
+	 * 
+	 * In the case of IDENT+, any whitespace between tokens is collapsed to
+	 * a single space
+	 */
+
+	/* Pass 1: validate input and calculate space */
+	token = parserutils_vector_iterate(vector, &temp_ctx);
+	if (token == NULL || (token->type != CSS_TOKEN_IDENT &&
+			token->type != CSS_TOKEN_STRING)) {
+		*ctx = orig_ctx;
+		return CSS_INVALID;
+	}
+
+	if (token->type == CSS_TOKEN_IDENT &&
+			(lwc_string_caseless_isequal(
+			token->idata, c->strings[INHERIT],
+			&match) == lwc_error_ok && match)) {
+		flags = FLAG_INHERIT;
+	} else {
+		uint32_t list_size;
+
+		value = voice_family_value(c, token);
+
+		error = comma_list_length(c, vector, &temp_ctx, 
+				token, voice_family_reserved, &list_size);
+		if (error != CSS_OK) {
+			*ctx = orig_ctx;
+			return error;
+		}
+
+		required_size += list_size;
+	}
+
+	opv = buildOPV(CSS_PROP_VOICE_FAMILY, flags, value);
+
+	/* Allocate result */
+	error = css_stylesheet_style_create(c->sheet, required_size, result);
+	if (error != CSS_OK) {
+		*ctx = orig_ctx;
+		return error;
+	}
+
+	/* Copy OPV to bytecode */
+	ptr = (*result)->bytecode;
+	memcpy(ptr, &opv, sizeof(opv));
+	ptr += sizeof(opv);
+
+	/* Pass 2: populate bytecode */
+	token = parserutils_vector_iterate(vector, ctx);
+	if (token == NULL || (token->type != CSS_TOKEN_IDENT &&
+			token->type != CSS_TOKEN_STRING)) {
+		css_stylesheet_style_destroy(c->sheet, *result, true);
+		*result = NULL;
+		*ctx = orig_ctx;
+		return CSS_INVALID;
+	}
+
+	if (token->type == CSS_TOKEN_IDENT &&
+			(lwc_string_caseless_isequal(
+			token->idata, c->strings[INHERIT],
+			&match) == lwc_error_ok && match)) {
+		/* Nothing to do */
+	} else {
+		error = comma_list_to_bytecode(c, vector, ctx, token, 
+				voice_family_reserved, voice_family_value,
+				&ptr);
+		if (error != CSS_OK) {
+			css_stylesheet_style_destroy(c->sheet, *result, true);
+			*result = NULL;
+			*ctx = orig_ctx;
+			return error;
+		}
+
+		/* Write terminator */
+		opv = VOICE_FAMILY_END;
+		memcpy(ptr, &opv, sizeof(opv));
+		ptr += sizeof(opv);
+	}
+
+	return CSS_OK;
+}