URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [rtos/] [ecos-2.0/] [tools/] [src/] [libcdl/] [expr.cxx] - Rev 174
Compare with Previous | Blame | View Log
//{{{ Banner //============================================================================ // // expr.cxx // // Implementation of the various CDL expression classes. // //============================================================================ //####COPYRIGHTBEGIN#### // // ---------------------------------------------------------------------------- // Copyright (C) 1999, 2000, 2001 Red Hat, Inc. // // This file is part of the eCos host tools. // // This program is free software; you can redistribute it and/or modify it // under the terms of the GNU General Public License as published by the Free // Software Foundation; either version 2 of the License, or (at your option) // any later version. // // This program is distributed in the hope that it will be useful, but WITHOUT // ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or // FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for // more details. // // You should have received a copy of the GNU General Public License along with // this program; if not, write to the Free Software Foundation, Inc., // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. // // ---------------------------------------------------------------------------- // //####COPYRIGHTEND#### //============================================================================ //#####DESCRIPTIONBEGIN#### // // Author(s): bartv // Contact(s): bartv // Date: 1999/02/02 // Version: 0.02 // //####DESCRIPTIONEND#### //============================================================================ //}}} //{{{ #include's // ---------------------------------------------------------------------------- #include "cdlconfig.h" // Get the infrastructure types, assertions, tracing and similar // facilities. #include <cyg/infra/cyg_ass.h> #include <cyg/infra/cyg_trac.h> // <cdlcore.hxx> defines everything implemented in this module. // It implicitly supplies <string>, <vector> and <map> because // the class definitions rely on these headers. #include <cdlcore.hxx> //}}} //{{{ Statics // ---------------------------------------------------------------------------- CYGDBG_DEFINE_MEMLEAK_COUNTER(CdlEvalContext); CYGDBG_DEFINE_MEMLEAK_COUNTER(CdlExpressionBody); CYGDBG_DEFINE_MEMLEAK_COUNTER(CdlListExpressionBody); CYGDBG_DEFINE_MEMLEAK_COUNTER(CdlGoalExpressionBody); //}}} //{{{ CdlEvalContext // ---------------------------------------------------------------------------- // A utility class to keep track of the context in which expression // evaluation is happening. CdlEvalContext::CdlEvalContext(CdlTransaction transaction_arg, CdlNode node_arg, CdlProperty property_arg, CdlToplevel toplevel_arg) { CYG_REPORT_FUNCNAME("CdlEvalContext::constructor"); CYG_REPORT_FUNCARG4XV(this, transaction_arg, node_arg, property_arg); transaction = transaction_arg; if ((0 == property_arg) && (0 != transaction)) { CdlConflict conflict = transaction->get_conflict(); if (0 != conflict) { property_arg = conflict->get_property(); } } property = property_arg; if ((0 == node_arg) && (0 != transaction)) { CdlConflict conflict = transaction->get_conflict(); if (0 != conflict) { node_arg = conflict->get_node(); } } node = node_arg; if (0 == toplevel_arg) { if (0 != transaction) { toplevel_arg = transaction->get_toplevel(); } else if (0 != node) { toplevel_arg = node->get_toplevel(); } } toplevel = toplevel_arg; cdlevalcontext_cookie = CdlEvalContext_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } CdlEvalContext::~CdlEvalContext() { CYG_REPORT_FUNCNAME("CdlEvalContext::destructor"); CYG_PRECONDITION_THISC(); cdlevalcontext_cookie = CdlEvalContext_Invalid; transaction = 0; node = 0; property = 0; toplevel = 0; CYGDBG_MEMLEAK_DESTRUCTOR(); CYG_REPORT_RETURN(); } // Given a context and a reference inside an expression, obtain the node // being referenced - if it is loaded. CdlNode CdlEvalContext::resolve_reference(CdlExpression expr, int index) { CYG_REPORT_FUNCNAMETYPE("CdlEvalContext::resolve_reference", "result %"); CYG_REPORT_FUNCARG2XV(expr, index); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSC(expr); CYG_PRECONDITIONC((0 <= index) && (index <= (int)expr->references.size())); // This expression may be happening in the context of a particular // property. If so then the destination may or may not be // resolved, which will have been handled when the containing package // was loaded. Alternatively this expression may be evaluated inside // some arbitrary Tcl code, in which case references remain unbound // and need to be resolved the hard way. CdlNode result = 0; if (0 != this->property) { // There is a property, use the bound/unbound reference. result = expr->references[index].get_destination(); } else { // The destination name can be retrieved, but we still need some // way of resolving it. if (0 != this->toplevel) { std::string destination_name = expr->references[index].get_destination_name(); result = this->toplevel->lookup(destination_name); } } CYG_REPORT_RETVAL(result); return result; } // Ditto, but also check that the result is a valuable. CdlValuable CdlEvalContext::resolve_valuable_reference(CdlExpression expr, int index) { CYG_REPORT_FUNCNAMETYPE("CdlEvalContext::resolve_reference", "result %"); CYG_REPORT_FUNCARG2XV(expr, index); CdlValuable result = 0; CdlNode node = this->resolve_reference(expr, index); if (0 != node) { result = dynamic_cast<CdlValuable>(node); } CYG_REPORT_RETVAL(result); return result; } bool CdlEvalContext::check_this(cyg_assert_class_zeal zeal) const { if (CdlEvalContext_Magic != cdlevalcontext_cookie) { return false; } CYGDBG_MEMLEAK_CHECKTHIS(); if ((0 != transaction) && !transaction->check_this(zeal)) { return false; } if ((0 != toplevel) && !toplevel->check_this(zeal)) { return false; } if ((0 != node) && !node->check_this(zeal)) { return false; } if ((0 != property) && !property->check_this(zeal)) { return false; } return true; } //}}} //{{{ Expression parsing //{{{ Description // ---------------------------------------------------------------------------- // There are a number of different entry points related to expression parsing, // largely to support list and goal expressions. All of these eventually // end up calling the function // continue_parse(expr, data, index, token, token_end) // // The expr argument holds an existing expression object that needs to be // updated. If token is Invalid then we are at the start of an expression // (but not necessarily at the start of the string). // // The data string holds all of the expression that should be parsed. // It is formed by concatenating all non-option arguments to the // appropriate property command, with spaces between them. // // index is an input/output variable. On input it indicates where in // the string parsing should continue. On output it indicates the // location within the string where the terminating token began. // // token is an input/output variable. On input it can have the values // Invalid or And. The former means that we are parsing a completely // new expression. The latter is used for goal expressions: it is // necessary to parse a new expression and then combine it with the // existing one. // // token_end is an output variable. It indicates the location within // the string where the terminating token ended. This is useful for // e.g. ranges in a list expression. // // A conventional recursive descent parser is used. //}}} //{{{ Tokenization // ---------------------------------------------------------------------------- // Tokenization. //{{{ token enum // A separate token enum is necessary, rather than re-using the CdlExprOp // enum. Some tokens may correspond to several operators, and some tokens // such as close-bracket do not correspond directly to an operator at all. enum token { T_Invalid = -2, T_EOD = -1, T_Reference = 1, // CYGPKG_HAL T_String = 2, // "hello" T_Integer = 3, // 123 T_Double = 4, // 3.1415 T_Range = 5, // to T_OpenBracket = 6, // ( T_CloseBracket = 7, // ) T_Minus = 8, // - T_Plus = 9, // + T_Times = 10, // * T_Divide = 11, // / T_Exclamation = 12, // ! T_Tilde = 13, // ~ T_Questionmark = 14, // ? T_Remainder = 15, // % T_LeftShift = 16, // << T_RightShift = 17, // >> T_LessThan = 18, // < T_LessEqual = 19, // <= T_GreaterThan = 20, // > T_GreaterEqual = 21, // >= T_Equal = 22, // == T_NotEqual = 23, // != T_BitAnd = 24, // & T_BitXor = 25, // ^ T_BitOr = 26, // | T_And = 27, // && T_Or = 28, // || T_Colon = 29, // : (in a conditional) T_StringConcat = 30, // . T_Function = 31, // is_substr etc. T_Comma = 32, // , (inside a function) T_Implies = 33, // implies T_Xor = 34, // xor T_Eqv = 35 // eqv }; //}}} //{{{ Statics // Statics to keep track of the current state. static std::string current_data = ""; static unsigned int current_index = 0; static unsigned int token_start = 0; static int current_char = EOF; static token current_token = T_Invalid; static std::string current_string = ""; static std::string current_reference = ""; static std::string current_special = ""; static cdl_int current_int = 0; static double current_double = 0.0; static CdlValueFormat current_format = CdlValueFormat_Default; static int current_function_id = 0; //}}} //{{{ Character access // ---------------------------------------------------------------------------- // Individual character access. // Note that current_index is one character past current_char. // Return the next character in the string, or EOF static void next_char() { if (current_index >= current_data.size()) { current_char = EOF; } else { current_char = current_data[current_index++]; } } // Go back a character. This is useful when parsing // strings. It is the responsibility of the calling code // to make sure that we are not at the start of the buffer. static void backup_char() { CYG_ASSERTC(((EOF == current_char) && (0 < current_index)) || (1 < current_index)); if (EOF != current_char) { current_index--; } current_char = current_data[current_index - 1]; } //}}} //{{{ get_error_location() // ---------------------------------------------------------------------------- // Construct part of a diagnostic message, indicating the // area in the data where the error occurred. This string // is of the form {...data} ^char^ {data...}. Ideally // the ^ markers would be on a subsequent line, eliminating // the need for braces, but there is insufficient control // of how the message gets presented to the user. // // Care has to be taken with EOD. static std::string get_error_location() { CYG_REPORT_FUNCNAME("get_error_location"); std::string result = ""; // token_start is probably the best place for centering the error. // current_index is past the point where the error has occurred. if (token_start > 1) { if (token_start > 16) { result = "{..." + current_data.substr(token_start - 13, 13) + "} "; } else { result = "{" + current_data.substr(0, token_start) + "}"; } } if (current_char == EOF) { result += " <end of data>"; } else { result += " ^" + std::string(1, current_data[token_start]) + "^ "; } if (token_start < current_data.size()) { if ((token_start + 16) < current_data.size()) { result += "{" + current_data.substr(token_start + 1, current_data.size() - (token_start+1)) + "}"; } else { result += "{" + current_data.substr(token_start, 13) + "...}"; } } CYG_REPORT_RETURN(); return result; } // Export this functionality available to other modules, especially func.cxx and its // argument checking routines. std::string CdlParse::get_expression_error_location(void) { return get_error_location(); } //}}} //{{{ Token translation // ---------------------------------------------------------------------------- // Convert a token into a binary expression operator static CdlExprOp token_to_binary_expr_op() { CYG_REPORT_FUNCNAMETYPE("token_to_expr_op", "op %d"); CdlExprOp result = CdlExprOp_Invalid; switch(current_token) { case T_Minus: result = CdlExprOp_Subtract; break; case T_Plus: result = CdlExprOp_Add; break; case T_Times: result = CdlExprOp_Multiply; break; case T_Divide: result = CdlExprOp_Divide; break; case T_Remainder: result = CdlExprOp_Remainder; break; case T_LeftShift: result = CdlExprOp_LeftShift; break; case T_RightShift: result = CdlExprOp_RightShift; break; case T_LessThan: result = CdlExprOp_LessThan; break; case T_LessEqual: result = CdlExprOp_LessEqual; break; case T_GreaterThan: result = CdlExprOp_GreaterThan; break; case T_GreaterEqual: result = CdlExprOp_GreaterEqual; break; case T_Equal: result = CdlExprOp_Equal; break; case T_NotEqual: result = CdlExprOp_NotEqual; break; case T_BitAnd: result = CdlExprOp_BitAnd; break; case T_BitXor: result = CdlExprOp_BitXor; break; case T_BitOr: result = CdlExprOp_BitOr; break; case T_And: result = CdlExprOp_And; break; case T_Or: result = CdlExprOp_Or; break; case T_StringConcat: result = CdlExprOp_StringConcat; break; case T_Implies: result = CdlExprOp_Implies; break; case T_Xor: result = CdlExprOp_Xor; break; case T_Eqv: result = CdlExprOp_Eqv; break; default: result = CdlExprOp_Invalid; break; } CYG_REPORT_RETVAL(result); return result; } // Convert a token into an ExprOp. This way the internal token enum does // not need to be exported in order to define the interface. // // In practice the higher level code will only look for a handful of // cases, mainly EOD and the range operator, but we might as well // do the job property. static CdlExprOp token_to_expr_op() { CYG_REPORT_FUNCNAMETYPE("token_to_expr_op", "expr op %d"); CdlExprOp result; // Many of the tokens are already handled for binary operators. result = token_to_binary_expr_op(); if (CdlExprOp_Invalid == result) { switch(current_token) { case T_EOD: result = CdlExprOp_EOD; break; case T_Reference: result = CdlExprOp_Reference; break; case T_String: result = CdlExprOp_StringConstant; break; case T_Integer: result = CdlExprOp_IntegerConstant; break; case T_Double: result = CdlExprOp_DoubleConstant; break; case T_Range: result = CdlExprOp_Range; break; case T_Exclamation: result = CdlExprOp_LogicalNot; break; case T_Tilde: result = CdlExprOp_BitNot; break; case T_Questionmark: case T_Colon: result = CdlExprOp_Cond; break; // best guess case T_Function: result = CdlExprOp_Function; break; case T_OpenBracket: case T_CloseBracket: case T_Invalid: default: result = CdlExprOp_Invalid; break; } } CYG_REPORT_RETVAL(result); return result; } // A utility routine to turn the current token back into a string // This is used for diagnostics. static std::string token_to_string() { CYG_REPORT_FUNCNAME("token_to_string"); std::string result = ""; switch(current_token) { case T_EOD: result = "<end of data>"; break; case T_Reference: result = "reference to " + current_reference; break; case T_String: result = "string \"" + current_string + "\""; break; case T_Integer: { std::string tmp; Cdl::integer_to_string(current_int, tmp, current_format); result = "integer constant " + tmp; break; } case T_Double: { std::string tmp; Cdl::double_to_string(current_double, tmp, current_format); result = "double constant " + tmp; break; } case T_Range: result = "range operator \"to\""; break; case T_OpenBracket: result = "open bracket ("; break; case T_CloseBracket: result = "close bracket )"; break; case T_Minus: result = "minus sign -"; break; case T_Plus: result = "plus sign +"; break; case T_Times: result = "multiply operator *"; break; case T_Divide: result = "divide operator /"; break; case T_Exclamation: result = "not operator !"; break; case T_Tilde: result = "bitwise not operator ~"; break; case T_Questionmark: result = "question mark ?"; break; case T_Remainder: result = "remainder operator %"; break; case T_LeftShift: result = "left shift operator <<"; break; case T_RightShift: result = "right shift operator >>"; break; case T_LessThan: result = "less-than operator <"; break; case T_LessEqual: result = "less-or-equal operator <="; break; case T_GreaterThan: result = "greater-than operator >"; break; case T_GreaterEqual: result = "greater-or-equal operator >="; break; case T_Equal: result = "equality operator =="; break; case T_NotEqual: result = "not-equal operator !="; break; case T_BitAnd: result = "bitwise and operator &"; break; case T_BitXor: result = "bitwise xor operator ^"; break; case T_BitOr: result = "bitwise or operator |"; break; case T_And: result = "and operator &&"; break; case T_Or: result = "or operator ||"; break; case T_Colon: result = "colon"; break; case T_StringConcat: result = "string concatenation operator ."; break; case T_Implies: result = "implies operator"; break; case T_Xor: result = "logical xor operator"; break; case T_Eqv: result = "logical equivalence operator eqv"; break; case T_Function: result = std::string("function call ") + CdlFunction::get_name(current_function_id); break; case T_Invalid: default: result = "<invalid token>"; break; } CYG_REPORT_RETURN(); return result; } //}}} //{{{ Literals // ---------------------------------------------------------------------------- //{{{ process_string() // The start of a string has been detected. Work out the entire string, // allowing for backslash escapes. static void process_string() { CYG_REPORT_FUNCNAME("process_string"); CYG_ASSERTC('"' == current_char); CYG_ASSERTC("" == current_string); std::string result = ""; // Move past the leading quote mark. next_char(); while ('"' != current_char) { if (EOF == current_char) { throw CdlParseException("Premature end of data in string constant.\n" + get_error_location()); } else if ('\\' == current_char) { // Allow \a, \b, \f, \n, \r, \t, \v, \ddd and \xhh. // Also copy with \newline space. // Any other character gets passed through unchanged. next_char(); switch(current_char) { case EOF: throw CdlParseException("Premature end of data after backslash in string constant.\n" + get_error_location()); case 'a': result += '\a'; break; case 'b': result += '\b'; break; case 'f': result += '\f'; break; case 'n': result += '\n'; break; case 'r': result += '\r'; break; case 't': result += '\t'; break; case 'v': result += '\v'; break; case 'x': { cdl_int tmp = 0; next_char(); if (!isxdigit(current_char)) { throw CdlParseException("Non-hexadecimal digit detected in string \\x escape sequence.\n" + get_error_location()); } // NOTE: there is no overflow detection here. do { tmp *= 16; if (('0' <= current_char) && (current_char <= '9')) { tmp += (current_char - '0'); } else if (('a' <= current_char) && (current_char <= 'f')) { tmp += 10 + (current_char - 'a'); } else if (('A' <= current_char) && (current_char <= 'F')) { tmp += 10 + (current_char - 'A'); } else { CYG_FAIL("C library error, isxdigit() succeeded on non-hexadecimal character"); } next_char(); } while(isxdigit(current_char)); backup_char(); result += (char) tmp; } case '\n': next_char(); while ((EOF != current_char) && isspace(current_char)) { next_char(); } // We have gone one too far, back up. backup_char(); result += " "; break; default: if (('0' <= current_char) && (current_char <= '7')) { // A sequence of octal digits. cdl_int tmp = 0; do { tmp = (8 * tmp) + (current_char - '0'); next_char(); } while (('0' <= current_char) && (current_char <= '7')); backup_char(); result += (char) tmp; } else { // For all other backslash sequences, just add the second character result += (char) current_char; } } } else { result += (char) current_char; } next_char(); } // The closing quote has been reached, move past it. next_char(); // And all done. current_token = T_String; current_string = result; CYG_REPORT_RETURN(); } //}}} //{{{ process_number() // The start of a number has been detected. This number may be an // integer or a double. It is necessary to figure out where the number // ends and invoke the appropriate Cdl:: conversion utility. // // Care has to be taken with termination. Consider a token such as // 134_5. This is not a string because there are no quote marks, nor // is it a valid reference, and because it begins with a digit it // should be interpreted as a number. The 134 bit works fine, then // number processing stops leaving current_char as '_'. If we are // parsing a list expression then the following _5 will actually // be interpreted as a reference. To avoid this, here is a utility // which checks number completion and throws an exception if // necessary. static void check_number_termination() { CYG_REPORT_FUNCNAME("check_number_termination"); // End-of-data or any whitespace is ok. if ((EOF != current_char) && !isspace(current_char)) { // Any valid operator is ok as well, or brackets for that matter. if (('-' != current_char) && ('+' != current_char) && ('*' != current_char) && ('/' != current_char) && ('!' != current_char) && ('~' != current_char) && ('?' != current_char) && ('%' != current_char) && ('<' != current_char) && ('>' != current_char) && ('=' != current_char) && ('&' != current_char) && ('^' != current_char) && ('|' != current_char) && (':' != current_char) && ('(' != current_char) && (')' != current_char)) { std::string tmp; Cdl::integer_to_string(current_int, tmp); throw CdlParseException("Invalid character detected after number " + tmp + "\n" + get_error_location()); } } CYG_REPORT_RETURN(); } static void process_number() { CYG_REPORT_FUNCNAME("process_number"); std::string tmp = ""; bool is_float = false; // Detect the special cases of 0x and octal numbers. if ('0' == current_char) { next_char(); if (('x' == current_char) || ('X' == current_char)) { next_char(); if (!isxdigit(current_char)) { throw CdlParseException("Invalid hexadecimal number, expected at least one hexadecimal digit after 0x.\n" + get_error_location()); } current_int = 0; do { current_int *= 16; if (('0' <= current_char) && (current_char <= '9')) { current_int += (current_char - '0'); } else if (('a' <= current_char) && (current_char <= 'f')) { current_int += 10 + (current_char - 'a'); } else { current_int += 10 + (current_char - 'A'); } next_char(); } while(isxdigit(current_char)); current_token = T_Integer; current_format = CdlValueFormat_Hex; check_number_termination(); CYG_REPORT_RETURN(); return; } else if (('0' <= current_char) && (current_char <= '7')) { current_int = 0; do { current_int *= 8; current_int += (current_char - '0'); next_char(); } while (('0' <= current_char) && (current_char <= '7')); current_token = T_Integer; current_format = CdlValueFormat_Octal; check_number_termination(); CYG_REPORT_RETURN(); return; } else if (('8' == current_char) || ('9' == current_char)) { throw CdlParseException("08... and 09... are not valid octal numbers.\n" + get_error_location()); } else { // This could be plain 0, or 0.123 // Backup, and let the rest of the code take care of things backup_char(); } } do { tmp += (char) current_char; next_char(); } while(isdigit(current_char)); // If we have found a . then we have a floating point number with a fraction. if ('.' == current_char) { tmp += '.'; next_char(); if (!isdigit(current_char)) { throw CdlParseException("Invalid floating point constant, expected a digit for the fractional part.\n" + get_error_location()); } is_float = true; do { tmp += (char) current_char; next_char(); } while(isdigit(current_char)); } // If we have found e or E then we have a floating point number with an exponent if (('e' == current_char) || ('E' == current_char)) { tmp += 'E'; next_char(); if (('+' == current_char) || ('-' == current_char)) { tmp += current_char; next_char(); } if (!isdigit(current_char)) { throw CdlParseException("Invalid floating point constant, expected a digit for the exponent.\n" + get_error_location()); } is_float = true; do { tmp += (char) current_char; next_char(); } while(isdigit(current_char)); } if (is_float) { if (!Cdl::string_to_double(tmp, current_double)) { throw CdlParseException("Invalid floating point constant `" + tmp + "'.\n" + get_error_location()); } else { current_token = T_Double; } } else { if (!Cdl::string_to_integer(tmp, current_int)) { throw CdlParseException("Invalid integer constant `" + tmp + "'.\n" + get_error_location()); } else { current_token = T_Integer; } } check_number_termination(); CYG_REPORT_RETURN(); } //}}} //{{{ process_alphanumeric() // The start of an alphanumeric sequence has been detected. This may // be a reference, a function call, or an operator like eq or to. All // such sequences must be a valid C preprocessor name, so the only // characters allowed are underscore, upper and lower case characters, // and digits. The first character cannot be a digit, but that has // been checked already. // // Some care has to be taken with locale's, the C library may decide // that a character is a letter even though the same character is not // valid as far as the preprocessor is concerned. static void process_alphanumeric() { CYG_REPORT_FUNCNAME("process_alphanumeric"); do { current_reference += (char) current_char; next_char(); } while (('_' == current_char) || isdigit(current_char) || (('a' <= current_char) && (current_char <= 'z')) || (('A' <= current_char) && (current_char <= 'Z'))); CYG_REPORT_RETURN(); } //}}} //{{{ process_special() // Usually an alphanumeric sequence of characters is a reference, e.g. // CYGPKG_KERNEL. However there are only so many special characters // available so some operators are implemented as a sequence, e.g. // "to". CDL also supports functions like is_substr(). // // The data will have been collected into the current_reference string // by a call to process_alphanumeric(). static bool process_special() { CYG_REPORT_FUNCNAMETYPE("process_special", "special %d"); bool result = false; if ("to" == current_reference) { current_token = T_Range; result = true; } else if ("implies" == current_reference) { current_token = T_Implies; result = true; } else if ("xor" == current_reference) { current_token = T_Xor; result = true; } else if ("eqv" == current_reference) { current_token = T_Eqv; result = true; } else if (CdlFunction::is_function(current_reference.c_str(), current_function_id)) { current_token = T_Function; result = true; } if (result) { current_special = current_reference; current_reference = ""; } CYG_REPORT_RETVAL(result); return result; } //}}} //}}} //{{{ next_token() // ---------------------------------------------------------------------------- // Work out what the next token is. This includes the handling of // strings, integers, doubles, and references. static void next_token() { CYG_REPORT_FUNCNAMETYPE("next_token", "token %d"); // Make sure there is no dross left lying around from the previous call. current_token = T_Invalid; current_string = ""; current_reference = ""; current_special = ""; current_int = 0; current_double = 0.0; current_format = CdlValueFormat_Default; current_function_id = 0; // Skip leading white space. This includes newlines, tabs, etc, // consider the case of: // ... // legal_values { // 1 // 2 // 4 // .. // } // ... // which is perfectly legitimate. White space inside strings // is handled by the string literal code, and does not get filtered // out here. // // Exactly which characters are white-space is implementation-defined, // so a special check for EOF is in order. while ((EOF != current_char) && isspace(current_char)) { next_char(); } // Remember the token starting point. next_char() has actually moved // the index on by one. token_start = current_index - 1; // The simple cases can be handled inline, the more complicated cases // involve other functions switch(current_char) { case EOF: current_token = T_EOD; break; case '"': process_string(); break; case '(': current_token = T_OpenBracket; next_char(); break; case ')': current_token = T_CloseBracket; next_char(); break; // At this level it is not possible to distinguish between // unary and binary operators, so no attempt is made to // turn - and + into part of a number. case '-': current_token = T_Minus; next_char(); break; case '+': current_token = T_Plus; next_char(); break; case '*': current_token = T_Times; next_char(); break; case '/': current_token = T_Divide; next_char(); break; case '!': next_char(); if ('=' == current_char) { current_token = T_NotEqual; next_char(); } else { current_token = T_Exclamation; } break; case '~': current_token = T_Tilde; next_char(); break; case '?': current_token = T_Questionmark; next_char(); break; case '%': current_token = T_Remainder; next_char(); break; case '<': next_char(); if ('<' == current_char) { current_token = T_LeftShift; next_char(); } else if ('=' == current_char) { current_token = T_LessEqual; next_char(); } else { current_token = T_LessThan; } break; case '>': next_char(); if ('>' == current_char) { current_token = T_RightShift; next_char(); } else if ('=' == current_char) { current_token = T_GreaterEqual; next_char(); } else { current_token = T_GreaterThan; } break; case '=': next_char(); if ('=' != current_char) { throw CdlParseException(std::string("Incomplete == operator in expression.\n") + get_error_location()); } else { current_token = T_Equal; next_char(); } break; case '&': next_char(); if ('&' == current_char) { current_token = T_And; next_char(); } else { current_token = T_BitAnd; } break; case '^': current_token = T_BitXor; next_char(); break; case '|': next_char(); if ('|' == current_char) { current_token = T_Or; next_char(); } else { current_token = T_BitOr; } break; case ':': current_token = T_Colon; next_char(); break; case '.': current_token = T_StringConcat; next_char(); break; case ',': current_token = T_Comma; next_char(); break; default: // String constants have been handled already. The only // valid tokens that are left are numbers, references, // "specials" such as the range and string equality // operators, and functions. // // Numbers should begin with a digit (plus and minus are // tokenized separately). // // References must be valid C preprocessor symbols, i.e. // they must begin with either a letter or an underscore. // The range operator is handled most conveniently as // a special case of a reference. if (isdigit(current_char)) { process_number(); } else if (('_' == current_char) || (('a' <= current_char) && (current_char <= 'z')) || (('A' <= current_char) && (current_char <= 'Z'))) { process_alphanumeric(); if (!process_special()) { current_token = T_Reference; } } else { std::string msg = "Unexpected character '"; msg += (char) current_char; msg += "' in expression.\n"; msg += get_error_location(); throw CdlParseException(msg); } break; } CYG_REPORT_RETVAL(current_token); } //}}} //{{{ initialise_tokenisation() // ---------------------------------------------------------------------------- // This is called at the start of expression parsing. It // sets up the appropriate statics, and provides initial // values for current_char and current_token. static void initialise_tokenisation(std::string data, int index) { CYG_REPORT_FUNCNAME("initialise_tokenization"); current_data = data; current_index = static_cast<unsigned int>(index); token_start = current_index; next_char(); next_token(); CYG_REPORT_RETURN(); } //}}} //}}} //{{{ Syntactic analysis // ---------------------------------------------------------------------------- // Syntactic analysis. // // The BNF of CDL expressions is something like this: // // <expression> ::= <conditional> // <conditional> ::= <implies> ? <conditional> : <conditional> | <implies> // <implies> ::= <eqv> [<implies op> <implies>] implies // <eqv> ::= <or> [<eqv op> <eqv>] xor, eqv // <or> ::= <and> [<or op> <or>] || // <and> ::= <bitor> [<and op> <and>] && // <bitor> ::= <bitxor> [<bitor op> <bitor>] | // <bitxor> ::= <bitand> [<bitxor op> <bitxor>] ^ // <bitand> ::= <eq> [<bitand op> <and>] & // <eq> ::= <comp> [<eq op> <eq>] == != // <comp> ::= <shift> [<comp op> <comp>] < <= > >= // <shift> ::= <add> [<shift op> <shift>] << >> // <add> ::= <mult> [<add op> <add>] + - . // <mult> ::= <unary> [<mult op> <mult>] * / % // <unary> ::= -<unary> | +<unary> | !<unary> | *<unary> | ?<unary> | // ~<unary> | // <string constant> | <integer constant> | // <double constant> | <reference> | // ( <expression> ) | <function> // // There are separate functions for each of these terms. // A forward declaration, needed for bracketed subexpressions. static void parse_expression(CdlExpression); // A utility to add a reference to the current expression, returning // the index. static int push_reference(CdlExpression expr, const std::string& reference) { CYG_REPORT_FUNCNAMETYPE("push_reference", "new index %d"); CYG_PRECONDITION_CLASSC(expr); CdlReference ref(reference); expr->references.push_back(ref); int result = (int) expr->references.size() - 1; CYG_REPORT_RETVAL(result); return result; } // A utility to add a subexpression, returning its index. static void push_subexpression(CdlExpression expr, const CdlSubexpression& subexpr) { CYG_REPORT_FUNCNAME("push_subexpression"); CYG_PRECONDITION_CLASSC(expr); expr->sub_expressions.push_back(subexpr); expr->first_subexpression = ((int) expr->sub_expressions.size()) - 1; CYG_REPORT_RETURN(); } // Another utility to hold of the most recent subexpression static CdlSubexpression& current_subexpression(CdlExpression expr) { CYG_REPORT_FUNCNAME("current_subexpression"); CdlSubexpression& result = expr->sub_expressions[expr->first_subexpression]; CYG_REPORT_RETURN(); return result; } static void parse_function(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_function"); CYG_REPORT_FUNCARG1XV(expr); CYG_PRECONDITION_CLASSC(expr); CdlSubexpression subexpr; subexpr.op = CdlExprOp_Function; subexpr.func = current_function_id; int number_of_args = CdlFunction::get_args_count(current_function_id); CYG_ASSERTC((0 < number_of_args) && (number_of_args <= CdlFunction_MaxArgs)); std::string name = current_special; // check for the opening bracket: xyzzy(arg1, arg2) next_token(); if (T_OpenBracket != current_token) { throw CdlParseException(std::string("Expected opening bracket after function ") + name + "\n" + get_error_location()); } next_token(); int i; for (i = 0; i < number_of_args; i++) { parse_expression(expr); subexpr.args[i] = expr->first_subexpression; if (i < (number_of_args - 1)) { if (T_Comma != current_token) { throw CdlParseException(std::string("Expected comma between arguments in function ") + name + "\n" + get_error_location()); } next_token(); } } if (T_Comma == current_token) { throw CdlParseException(std::string("Too many arguments passed to function ") + name + "\n" + get_error_location()); } if (T_CloseBracket != current_token) { throw CdlParseException(std::string("Expected closing bracket after function ") + name + "\n" + get_error_location()); } next_token(); // Allow the function implementation to check its arguments if it is so inclined. CdlFunction::check(expr, subexpr); push_subexpression(expr, subexpr); CYG_REPORT_RETURN(); } static void parse_unary(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_operand"); CYG_REPORT_FUNCARG1XV(expr); CYG_PRECONDITION_CLASSC(expr); CdlSubexpression subexpr; switch(current_token) { case T_EOD : { // This warrants a special case throw CdlParseException("End of expression reached when expecting an operand.\n" + get_error_location()); } case T_Function : { parse_function(expr); break; } case T_Reference : { subexpr.op = CdlExprOp_Reference; subexpr.reference_index = push_reference(expr, current_reference); push_subexpression(expr, subexpr); next_token(); break; } case T_String : { subexpr.op = CdlExprOp_StringConstant; subexpr.constants = current_string; push_subexpression(expr, subexpr); next_token(); break; } case T_Integer : { subexpr.op = CdlExprOp_IntegerConstant; subexpr.constants.set_integer_value(current_int, current_format); push_subexpression(expr, subexpr); next_token(); break; } case T_Double : { subexpr.op = CdlExprOp_DoubleConstant; subexpr.constants.set_double_value(current_double, current_format); push_subexpression(expr, subexpr); next_token(); break; } case T_OpenBracket : { next_token(); parse_expression(expr); if (T_CloseBracket != current_token) { throw CdlParseException("Missing close bracket after subexpression.\n" + get_error_location()); } next_token(); break; } case T_Minus : { next_token(); parse_unary(expr); CdlSubexpression& last_sub = current_subexpression(expr); if (CdlExprOp_IntegerConstant == last_sub.op) { // Do the negating inline, no need for another subexpression. last_sub.constants = last_sub.constants.get_integer_value() * -1; } else if (CdlExprOp_DoubleConstant == last_sub.op) { last_sub.constants = last_sub.constants.get_double_value() * -1; } else { // We could detect certain cases such as string constants etc. // For now don't bother. subexpr.op = CdlExprOp_Negate; subexpr.lhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } break; } case T_Plus : { next_token(); parse_unary(expr); CdlSubexpression& last_sub = current_subexpression(expr); if ((CdlExprOp_IntegerConstant == last_sub.op) || (CdlExprOp_DoubleConstant == last_sub.op)) { // No need to do anything here. } else { subexpr.op = CdlExprOp_Plus; subexpr.lhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } break; } case T_Times : { next_token(); parse_unary(expr); subexpr.op = CdlExprOp_Indirect; subexpr.lhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); break; } case T_Exclamation : { next_token(); parse_unary(expr); subexpr.op = CdlExprOp_LogicalNot; subexpr.lhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); break; } case T_Tilde : { next_token(); parse_unary(expr); subexpr.op = CdlExprOp_BitNot; subexpr.lhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); break; } case T_Questionmark: { // This is the `active' operator, it can only be applied directly to a reference. next_token(); parse_unary(expr); CdlSubexpression& last_sub = current_subexpression(expr); if (CdlExprOp_Reference != last_sub.op) { throw CdlParseException("The active operator ? can only be applied directly to a reference.\n" + get_error_location()); } // There is no point in creating a new subexpression object, just modify // the existing one. This has the useful side effect of avoiding // reference substitution in the eval code. last_sub.op = CdlExprOp_Active; break; } default: { throw CdlParseException("Unexpected token `" + token_to_string() + "', expecting an operand.\n" + get_error_location()); } } CYG_REPORT_RETURN(); } static void parse_multiply(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_multiply"); parse_unary(expr); while ((T_Times == current_token) || (T_Divide == current_token) || (T_Remainder == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_Times == current_token) ? CdlExprOp_Multiply : (T_Divide == current_token) ? CdlExprOp_Divide : CdlExprOp_Remainder; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_unary(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_add(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_add"); parse_multiply(expr); while ((T_Plus == current_token) || (T_Minus == current_token) || (T_StringConcat == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_Plus == current_token) ? CdlExprOp_Add : (T_Minus == current_token) ? CdlExprOp_Subtract : CdlExprOp_StringConcat; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_multiply(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_shift(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_shift"); parse_add(expr); while ((T_LeftShift == current_token) || (T_RightShift == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_LeftShift == current_token) ? CdlExprOp_LeftShift : CdlExprOp_RightShift; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_add(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_comparison(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_comparison"); parse_shift(expr); while ((T_LessThan == current_token) || (T_LessEqual == current_token) || (T_GreaterThan == current_token) || (T_GreaterEqual == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_LessThan == current_token) ? CdlExprOp_LessThan : (T_LessEqual == current_token) ? CdlExprOp_LessEqual : (T_GreaterThan == current_token) ? CdlExprOp_GreaterThan : CdlExprOp_GreaterEqual; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_shift(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_equals(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_equals"); parse_comparison(expr); while ((T_Equal == current_token) || (T_NotEqual == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_Equal == current_token) ? CdlExprOp_Equal : CdlExprOp_NotEqual; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_comparison(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_bitand(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_bitand"); parse_equals(expr); while (T_BitAnd == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_BitAnd; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_equals(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_bitxor(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_bitxor"); parse_bitand(expr); while (T_BitXor == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_BitXor; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_bitand(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_bitor(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_bitor"); parse_bitxor(expr); while (T_BitOr == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_BitOr; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_bitxor(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_and(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_and"); parse_bitor(expr); while (T_And == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_And; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_bitor(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_or(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_or"); parse_and(expr); while (T_Or == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_Or; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_and(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_eqv(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_eqv"); parse_or(expr); while ((T_Xor == current_token) || (T_Eqv == current_token)) { CdlSubexpression subexpr; subexpr.op = (T_Xor == current_token) ? CdlExprOp_Xor : CdlExprOp_Eqv; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_or(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_implies(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_implies"); parse_eqv(expr); while (T_Implies == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_Implies; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_eqv(expr); subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_conditional(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_conditional"); parse_implies(expr); if (T_Questionmark == current_token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_Cond; subexpr.lhs_index = expr->first_subexpression; next_token(); parse_conditional(expr); subexpr.rhs_index = expr->first_subexpression; if (T_Colon != current_token) { throw CdlParseException("Expected colon in conditional expression.\n" + get_error_location()); } next_token(); parse_conditional(expr); subexpr.rrhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } CYG_REPORT_RETURN(); } static void parse_expression(CdlExpression expr) { CYG_REPORT_FUNCNAME("parse_expression"); parse_conditional(expr); CYG_REPORT_RETURN(); } // ---------------------------------------------------------------------------- // The entry point. void CdlExpressionBody::continue_parse(CdlExpression expr, std::string data, int& index, CdlExprOp& token, int& token_end) { CYG_REPORT_FUNCNAME("CdlExpression::continue_parse"); CYG_REPORT_FUNCARG1XV(expr); CYG_PRECONDITION_CLASSC(expr); CYG_PRECONDITIONC((CdlExprOp_Invalid == token) || (CdlExprOp_And == token)); int current_subexpr = expr->first_subexpression; initialise_tokenisation(data, index); parse_expression(expr); if (CdlExprOp_And == token) { CdlSubexpression subexpr; subexpr.op = CdlExprOp_And; subexpr.lhs_index = current_subexpr; subexpr.rhs_index = expr->first_subexpression; push_subexpression(expr, subexpr); } token = token_to_expr_op(); index = token_start; token_end = current_index; CYG_REPORT_RETURN(); } //}}} //}}} //{{{ Expression Evaluation // ---------------------------------------------------------------------------- // Expression evaluation. This always happens in the context of a // particular toplevel. The parsed expression is held in what amounts // to a simple tree, so evaluation involves some recursion and a big // switch statement. static void evaluate_subexpr(CdlEvalContext& context, CdlExpression expr, int subexpr_index, CdlSimpleValue& result) { CYG_REPORT_FUNCNAME("evaluate_subexpr"); CYG_REPORT_FUNCARG2XV(expr, subexpr_index); CYG_ASSERTC((subexpr_index >= 0) && ((unsigned int)subexpr_index < expr->sub_expressions.size())); const CdlSubexpression& subexpr = expr->sub_expressions[subexpr_index]; switch(subexpr.op) { case CdlExprOp_StringConstant : case CdlExprOp_IntegerConstant : case CdlExprOp_DoubleConstant : { result = subexpr.constants; break; } case CdlExprOp_Function : { CdlFunction::eval(context, expr, subexpr, result); break; } case CdlExprOp_Reference : { // This expression may be happening in the context of a particular // property. If so then the destination may or may not be resolved, // and this is significant in the context of loading and unloading. // Alternatively this expression may be being evaluated inside // some Tcl code, with no particular context. CdlNode destination = 0; if (0 != context.property) { // There is a property, use the bound/unbound reference. destination = expr->references[subexpr.reference_index].get_destination(); } else { // The destination name can be retrieved, but we still need some // way of resolving it. if (0 != context.toplevel) { std::string destination_name = expr->references[subexpr.reference_index].get_destination_name(); destination = context.toplevel->lookup(destination_name); } } if (0 == destination) { // There are two ways of handling this. // 1) throw an eval exception, which will usually result // in a new conflict object // 2) substitute a value of 0. // There should already be a conflict object for an // unresolved reference, and having two conflicts for // essentially the same error is not useful. Using a value // of 0 allows things to continue for a bit longer. It is // consistent with active vs. inactive values, gives // basically the right result for "requires" properties, // and so on. // // For now option (2) has it, but this decision may be // reversed in future. result = false; } else { CdlValuable valuable = dynamic_cast<CdlValuable>(destination); if (0 == valuable) { // This is a serious problem, an exception is warranted. throw CdlEvalException("The expression references `" + destination->get_class_name() + " " + destination->get_name() + "' which does not have a value."); } else { CdlSimpleValue::eval_valuable(context, valuable, result); } } break; } case CdlExprOp_Negate : { // Unary -. Evaluate the target. If it is numeric, fine. Otherwise // an error is warranted. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (result.has_integer_value()) { result.set_integer_value(-1 * result.get_integer_value()); } else if (result.has_double_value()) { result.set_double_value(-1.0 * result.get_double_value()); } else { throw CdlEvalException("Attempt to negate non-numeric value `" + result.get_value() + "'."); } break; } case CdlExprOp_Plus : { // Unary +. Essentially this just checks that the current value is numeric. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if ((!result.has_integer_value()) && (!result.has_double_value())) { throw CdlEvalException("Attempt to apply unary + operator to non-numeric value `" + result.get_value() + "'."); } break; } case CdlExprOp_LogicalNot : { // !x evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (result.get_bool_value()) { result = false;; } else { result = true; } result.set_value_format(CdlValueFormat_Default); break; } case CdlExprOp_BitNot : { // ~x. The operand must be an integer value. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (result.has_integer_value()) { cdl_int tmp = result.get_integer_value(); result = ~tmp; } else { throw CdlEvalException("Attempt to apply unary ~ operator to non-integer value `" + result.get_value() + "'."); } break; } case CdlExprOp_Indirect : { // *x. The operand must evaluate to a string, and that string should be // the name of a CdlValuable object. CdlNode destination = 0; evaluate_subexpr(context, expr, subexpr.lhs_index, result); std::string name = result.get_value(); if (0 != context.toplevel) { destination = context.toplevel->lookup(name); } else { CYG_FAIL("This situation should probably never happen."); } if (0 == destination) { throw CdlEvalException("Attempt to apply unary indirection operator * to `" + name + "', which is not the name of a known CDL entity."); } else { CdlValuable valuable = dynamic_cast<CdlValuable>(destination); if (0 == valuable) { throw CdlEvalException("Attempt to apply unary indirection operator * to `" + name + "', which does not have a value."); } else { CdlSimpleValue::eval_valuable(context, valuable, result); } } break; } case CdlExprOp_Active : { // ?x. If x is currently unresolved then default to 0. // See the CdlExprOp_Reference code above for a similar case. CdlNode destination = 0; if (0 != context.property) { destination = expr->references[subexpr.reference_index].get_destination(); } else { if (0 != context.toplevel) { std::string destination_name = expr->references[subexpr.reference_index].get_destination_name(); destination = context.toplevel->lookup(destination_name); } } bool active = false; if ((0 != destination) && context.transaction->is_active(destination)) { active = true; } if (active) { result = true; } else { result = false; } break; } case CdlExprOp_Multiply : { // x * y. For now this only makes sense for numerical data, // but it is possible to mix and match integer and double // precision data. // // Strictly speaking the rhs need only be evaluated if it // is known that the lhs is numeric. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((!(lhs.has_integer_value() || lhs.has_double_value())) || (!(rhs.has_integer_value() || rhs.has_double_value()))) { throw CdlEvalException("Attempt to multiply non-numerical values: `" + lhs.get_value() + "' * `" + rhs.get_value() + "'."); } if (lhs.has_integer_value() && rhs.has_integer_value()) { result = lhs.get_integer_value() * rhs.get_integer_value(); } else { result = lhs.get_double_value() * rhs.get_double_value(); } result.set_value_format(lhs, rhs); break; } case CdlExprOp_Divide : { // x / y. Basically the same as multiplication, apart from a check for // division by zero. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((!(lhs.has_integer_value() || lhs.has_double_value())) || (!(rhs.has_integer_value() || rhs.has_double_value()))) { throw CdlEvalException("Attempt to divide non-numerical values: `" + lhs.get_value() + "' / `" + rhs.get_value() + "'."); } if (lhs.has_integer_value() && rhs.has_integer_value()) { cdl_int rhs_val = rhs.get_integer_value(); if (0 == rhs_val) { throw CdlEvalException("Division by zero error: `" + lhs.get_value() + "' / `" + rhs.get_value() + "'."); } else { result = lhs.get_integer_value() / rhs_val; } } else { double rhs_val = rhs.get_double_value(); if (0.0 == rhs_val) { throw CdlEvalException("Division by zero error: `" + lhs.get_value() + "' / `" + rhs.get_value() + "'."); } result = lhs.get_double_value() / rhs_val; } result.set_value_format(lhs, rhs); break; } case CdlExprOp_Remainder : { // x % y. Both operands must be integral. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the remainder operator on non integral data: `" + lhs.get_value() + "' % `" + rhs.get_value() + "'."); } cdl_int rhs_val = rhs.get_integer_value(); if (0 == rhs_val) { throw CdlEvalException("Division by zero error: `" + lhs.get_value() + "' % `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() % rhs_val; result.set_value_format(lhs, rhs); break; } case CdlExprOp_Add : { // x + y. For now this only makes sense for numerical data, // but it is possible to mix and match integer and double // precision data. Arguably for string data this operator // should mean concatenation, but it would probably be // safer to have a separate operator for that. // // Strictly speaking the rhs need only be evaluated if it // is known that the lhs is numeric. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((!(lhs.has_integer_value() || lhs.has_double_value())) || (!(rhs.has_integer_value() || rhs.has_double_value()))) { throw CdlEvalException("Attempt to add non-numerical values: `" + lhs.get_value() + "' + `" + rhs.get_value() + "'."); } if (lhs.has_integer_value() && rhs.has_integer_value()) { result = lhs.get_integer_value() + rhs.get_integer_value(); } else { result = lhs.get_double_value() + rhs.get_double_value(); } result.set_value_format(lhs, rhs); break; } case CdlExprOp_Subtract : { // x - y. Again only numerical data is supported for now. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((!(lhs.has_integer_value() || lhs.has_double_value())) || (!(rhs.has_integer_value() || rhs.has_double_value()))) { throw CdlEvalException("Attempt to subtract non-numerical values: `" + lhs.get_value() + "' - `" + rhs.get_value() + "'."); } if (lhs.has_integer_value() && rhs.has_integer_value()) { result = lhs.get_integer_value() - rhs.get_integer_value(); } else { result = lhs.get_double_value() - rhs.get_double_value(); } result.set_value_format(lhs, rhs); break; } case CdlExprOp_LeftShift : { // x << y. Both operands must be integral. For now there is no // check on the value of y. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the left-shift operator on non integral data: `" + lhs.get_value() + "' << `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() << rhs.get_integer_value(); result.set_value_format(lhs, rhs); break; } case CdlExprOp_RightShift : { // x >> y. Both operands must be integral. For now there is no // check on the value of y. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the right-shift operator on non integral data: `" + lhs.get_value() + "' >> `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() >> rhs.get_integer_value(); result.set_value_format(lhs, rhs); break; } case CdlExprOp_LessThan : case CdlExprOp_LessEqual : case CdlExprOp_GreaterThan : case CdlExprOp_GreaterEqual : { // x < y, and similar comparison operators. These share // sufficient code to warrant a common implementation. Only // numerical data is supported for now. These operator could // be interpreted as e.g. substring operations, but arguably // separate operators would be better for that. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((!(lhs.has_integer_value() || lhs.has_double_value())) || (!(rhs.has_integer_value() || rhs.has_double_value()))) { std::string op_str = (CdlExprOp_LessThan == subexpr.op) ? "<" : (CdlExprOp_LessEqual == subexpr.op) ? "<=" : (CdlExprOp_GreaterThan == subexpr.op) ? ">" : ">="; throw CdlEvalException("Attempt to compare non-numerical values: `" + lhs.get_value() + "' " + op_str + " `" + rhs.get_value() + "'."); } bool val = false; if (lhs.has_integer_value() && rhs.has_integer_value()) { cdl_int lhs_val = lhs.get_integer_value(); cdl_int rhs_val = rhs.get_integer_value(); val = (CdlExprOp_LessThan == subexpr.op) ? (lhs_val < rhs_val) : (CdlExprOp_LessEqual == subexpr.op) ? (lhs_val <= rhs_val) : (CdlExprOp_GreaterThan == subexpr.op) ? (lhs_val > rhs_val) : (lhs_val >= rhs_val); } else { double lhs_val = lhs.get_double_value(); double rhs_val = rhs.get_double_value(); val = (CdlExprOp_LessThan == subexpr.op) ? (lhs_val < rhs_val) : (CdlExprOp_LessEqual == subexpr.op) ? (lhs_val <= rhs_val) : (CdlExprOp_GreaterThan == subexpr.op) ? (lhs_val > rhs_val) : (lhs_val >= rhs_val); } result = val; break; } case CdlExprOp_Equal : { // x == y. For numerical data this should be a numerical comparison. // Otherwise a string comparison has to be used. bool val = false; CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((lhs.has_integer_value() || lhs.has_double_value()) && (rhs.has_integer_value() || rhs.has_double_value())) { if (lhs.has_integer_value() && rhs.has_integer_value()) { if (lhs.get_integer_value() == rhs.get_integer_value()) { val = true; } else { val = false; } } else { if (lhs.get_double_value() == rhs.get_double_value()) { val = true; } else { val = false; } } } else { // At least one of the two sides is non-numerical. Do a string comparison. if (lhs.get_value() == rhs.get_value()) { val = true; } else { val = false; } } result = val; break; } case CdlExprOp_NotEqual : { // x != y. For numerical data this should be a numerical comparison. // Otherwise a string comparison has to be used. bool val = false; CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if ((lhs.has_integer_value() || lhs.has_double_value()) && (rhs.has_integer_value() || rhs.has_double_value())) { if (lhs.has_integer_value() && rhs.has_integer_value()) { if (lhs.get_integer_value() != rhs.get_integer_value()) { val = true; } else { val = false; } } else { if (lhs.get_double_value() != rhs.get_double_value()) { val = true; } else { val = false; } } } else { // At least one of the two sides is non-numerical. Do a string comparison. if (lhs.get_value() != rhs.get_value()) { val = true; } else { val = false; } } result = val; break; } case CdlExprOp_BitAnd : { // x & y. Only integer data is supported. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the bitwise and operator on non integral data: `" + lhs.get_value() + "' & `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() & rhs.get_integer_value(); result.set_value_format(lhs, rhs); break; } case CdlExprOp_BitXor : { // x ^ y. Only integer data is supported. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the bitwise xor operator on non integral data: `" + lhs.get_value() + "' ^ `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() ^ rhs.get_integer_value(); result.set_value_format(lhs, rhs); break; } case CdlExprOp_BitOr : { // x | y. Only integer data is supported. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); if (!(lhs.has_integer_value() && rhs.has_integer_value())) { throw CdlEvalException("Attempt to use the bitwise or operator on non integral data: `" + lhs.get_value() + "' | `" + rhs.get_value() + "'."); } result = lhs.get_integer_value() | rhs.get_integer_value(); result.set_value_format(lhs, rhs); break; } case CdlExprOp_And : { // x && y. Both sides should be interpreted as boolean values, // and "y" should only be evaluated if necessary. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (!result.get_bool_value()) { result = false; } else { evaluate_subexpr(context, expr, subexpr.rhs_index, result); if (result.get_bool_value()) { result = true; } else { result = false; } } break; } case CdlExprOp_Or : { // x || y. Both sides should be interpreted as boolean values, // and "y" should only be evaluated if necessary. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (result.get_bool_value()) { result = true; } else { evaluate_subexpr(context, expr, subexpr.rhs_index, result); if (result.get_bool_value()) { result = true; } else { result = false; } } break; } case CdlExprOp_Xor : { // x xor y. Both sides should be interpreted as boolean values. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); bool lhs_bool = lhs.get_bool_value(); bool rhs_bool = rhs.get_bool_value(); if ((lhs_bool && !rhs_bool) || (!lhs_bool && rhs_bool)) { result = true; } else { result = false; } break; } case CdlExprOp_Eqv : { // x eqv y. Both sides should be interpreted as boolean values. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); bool lhs_bool = lhs.get_bool_value(); bool rhs_bool = rhs.get_bool_value(); if ((!lhs_bool && !rhs_bool) || (lhs_bool && rhs_bool)) { result = true; } else { result = false; } break; } case CdlExprOp_Implies : { // x implies y. Both sides should be interpreted as boolean values. CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); bool lhs_bool = lhs.get_bool_value(); bool rhs_bool = rhs.get_bool_value(); if (!lhs_bool || rhs_bool) { result = true; } else { result = false; } break; } case CdlExprOp_Cond : { // x ? a : b. // First evaluate the condition. Then evaluate either the second // or third argument, as appropriate. evaluate_subexpr(context, expr, subexpr.lhs_index, result); if (result.get_bool_value()) { evaluate_subexpr(context, expr, subexpr.rhs_index, result); } else { evaluate_subexpr(context, expr, subexpr.rrhs_index, result); } break; } case CdlExprOp_StringConcat : { // a . b CdlSimpleValue lhs; CdlSimpleValue rhs; evaluate_subexpr(context, expr, subexpr.lhs_index, lhs); evaluate_subexpr(context, expr, subexpr.rhs_index, rhs); result = lhs.get_value() + rhs.get_value(); break; } default: break; } CYG_REPORT_RETURN(); } // ---------------------------------------------------------------------------- void CdlExpressionBody::eval_internal(CdlEvalContext& context, CdlSimpleValue& result) { CYG_REPORT_FUNCNAME("CdlExpression::eval_internal)"); CYG_REPORT_FUNCARG3XV(this, &context, &result); CYG_INVARIANT_THISC(CdlExpressionBody); CYG_PRECONDITION_CLASSOC(context); evaluate_subexpr(context, this, first_subexpression, result); CYG_REPORT_RETURN(); } void CdlExpressionBody::eval_subexpression(CdlEvalContext& context, int index, CdlSimpleValue& result) { CYG_REPORT_FUNCNAME("CdlExpression::eval_subexpression)"); CYG_REPORT_FUNCARG4XV(this, &context, index, &result); CYG_INVARIANT_THISC(CdlExpressionBody); CYG_PRECONDITION_CLASSOC(context); evaluate_subexpr(context, this, index, result); CYG_REPORT_RETURN(); } //}}} //{{{ CdlExpression //{{{ Construction // ---------------------------------------------------------------------------- // Ordinary expressions. // // The default constructor is private and does very little. Expressions // are created primarily by means of the parse() member function. There // is an argument for having constructors that take the same arguments // as the parse() member functions and relying on exception handling, // but that gets tricky for goal expressions and continue_parse(). // // The copy constructor is protected and is used when creating e.g. // a default_value property object, which inherits from the ordinary // expression class. Again it might be better to do the parsing in // the constructor itself. // // The assignment operator is private and illegal. CdlExpressionBody::CdlExpressionBody() { CYG_REPORT_FUNCNAME("CdlExpression:: default constructor"); CYG_REPORT_FUNCARG1XV(this); expression_string = ""; first_subexpression = -1; cdlexpressionbody_cookie = CdlExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } CdlExpressionBody::CdlExpressionBody(const CdlExpressionBody& original) { CYG_REPORT_FUNCNAME("CdlExpression:: copy constructor"); CYG_REPORT_FUNCARG2XV(this, &original); CYG_INVARIANT_CLASSOC(CdlExpressionBody, original); // Sub-expressions are simple structs, so this should result in a bit-wise // copy of each vector element sub_expressions = original.sub_expressions; // Simple scalar first_subexpression = original.first_subexpression; // The CdlReference class has a valid copy constructor and assignment // operator, provided that the reference is not yet bound. This should // be true when this copy constructor gets invoked, after parsing // and during the construction of a derived property object. references = original.references; expression_string = original.expression_string; cdlexpressionbody_cookie = CdlExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } //}}} //{{{ check_this() // ---------------------------------------------------------------------------- // check_this(). Expression objects can exist before any parsing has // happened, not to mention in the middle of parsing. The // first_subexpression field can be used to detect this. bool CdlExpressionBody::check_this(cyg_assert_class_zeal zeal) const { if (CdlExpressionBody_Magic != cdlexpressionbody_cookie) { return false; } CYGDBG_MEMLEAK_CHECKTHIS(); if (-1 == first_subexpression) { return true; } switch(zeal) { case cyg_system_test : case cyg_extreme : case cyg_thorough : { for (std::vector<CdlReference>::const_iterator i = references.begin(); i != references.end(); i++) { if (!i->check_this(cyg_quick)) { return false; } } } case cyg_quick : if ((unsigned)first_subexpression >= sub_expressions.size()) { return false; } case cyg_trivial : case cyg_none : break; } return true; } //}}} //{{{ Destruction CdlExpressionBody::~CdlExpressionBody() { CYG_REPORT_FUNCNAME("CdlExpression::destructor"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); cdlexpressionbody_cookie = CdlExpressionBody_Invalid; first_subexpression = -1; sub_expressions.clear(); expression_string = ""; // This assumes that all references have been unbound already by // higher-level destructors. references.clear(); CYGDBG_MEMLEAK_DESTRUCTOR(); CYG_REPORT_RETURN(); } //}}} //{{{ Parsing - exported interface // ---------------------------------------------------------------------------- // parse(string) invokes parse(string, ...) and checks that the expression // has terminated with EOD. Parsing of list expressions etc. can terminate // with some other token. // // parse(string, ...) allocates the expression object and invokes // continue_parse(). // // continue_parse() is supposed to do all the hard work. CdlExpression CdlExpressionBody::parse(std::string data) { CYG_REPORT_FUNCNAMETYPE("CdlExpression::parse", "result %p"); CdlExpression result = 0; int index = 0; CdlExprOp next_op = CdlExprOp_Invalid; int end_index; result = parse(data, index, next_op, end_index); // Either there has already been a parsing or out-of-memory // exception, or we should be at the end of the expression string. if (CdlExprOp_EOD != next_op) { delete result; throw CdlParseException("Unexpected data at end of expression.\n" + get_error_location()); } // Keep a copy of the original string for diagnostics purposes. result->expression_string = data; CYG_REPORT_RETVAL(result); return result; } CdlExpression CdlExpressionBody::parse(std::string data, int& index, CdlExprOp& next_token, int& token_end) { CYG_REPORT_FUNCNAMETYPE("CdlExpression::parse", "result %d"); CdlExpression result = new CdlExpressionBody; try { continue_parse(result, data, index, next_token, token_end); } catch (...) { delete result; throw; } CYG_REPORT_RETVAL(result); return result; } //}}} //{{{ update() // ---------------------------------------------------------------------------- // There has been a change in the toplevel which involves entities being // created or destroyed, and reference resolution is required. bool CdlExpressionBody::update(CdlTransaction transaction, CdlNode source, CdlProperty source_prop, CdlNode dest, CdlUpdate change) { CYG_REPORT_FUNCNAMETYPE("CdlExpression::update", "result %d"); CYG_REPORT_FUNCARG6XV(this, transaction, source, source_prop, dest, change); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSC(source); CYG_PRECONDITION_CLASSC(source_prop); CdlToplevel toplevel = source->get_toplevel(); bool result = false; std::vector<CdlReference>::iterator ref_i; switch(change) { case CdlUpdate_Loaded: { // The source package has just been loaded. Try to resolve every // reference, creating CdlConflict objects where necessary. CYG_ASSERTC(0 == dest); for (ref_i = references.begin(); ref_i != references.end(); ref_i++) { dest = toplevel->lookup(ref_i->get_destination_name()); if (0 == dest) { CdlConflict_UnresolvedBody::make(transaction, source, source_prop, ref_i->get_destination_name()); } else { ref_i->bind(source, source_prop, dest); } } result = true; break; } case CdlUpdate_Unloading: { // The source package is being unloaded. Unbind all currently bound references. // Also destroy any unresolved conflicts. CYG_ASSERTC(0 == dest); for (ref_i = references.begin(); ref_i != references.end(); ref_i++) { dest = ref_i->get_destination(); if (0 != dest) { ref_i->unbind(source, source_prop); } } result = true; break; } case CdlUpdate_Created : { // A previously unresolved reference can now be resolved. // It is necessary to search the vector for an unresolved // reference with the desired name, and do the binding. // This search may fail in the case of list expressions. CYG_ASSERT_CLASSC(dest); std::string dest_name = dest->get_name(); for (ref_i = references.begin(); !result && (ref_i != references.end()); ref_i++) { if ((dest_name == ref_i->get_destination_name()) && (0 == ref_i->get_destination())) { ref_i->bind(source, source_prop, dest); result = true; std::vector<CdlConflict> conflicts; std::vector<CdlConflict>::iterator conf_i; transaction->get_structural_conflicts(source, source_prop, &CdlConflict_UnresolvedBody::test, conflicts); for (conf_i = conflicts.begin(); conf_i != conflicts.end(); conf_i++) { CdlConflict_Unresolved real_conf = dynamic_cast<CdlConflict_Unresolved>(*conf_i); CYG_ASSERTC(0 != real_conf); if (dest_name == real_conf->get_target_name()) { transaction->clear_conflict(real_conf); break; } } CYG_ASSERTC(conf_i != conflicts.end()); } } break; } case CdlUpdate_Destroyed : { // A previously resolved reference is about to become illegal. // Search the vector for a resolved reference object matching // the destination, and unbind it. Also create a conflict // object. The search can fail in the case of list expressions CYG_ASSERT_CLASSC(dest); for (ref_i = references.begin(); !result && (ref_i != references.end()); ref_i++) { if (dest == ref_i->get_destination()) { ref_i->unbind(source, source_prop); CdlConflict_UnresolvedBody::make(transaction, source, source_prop, ref_i->get_destination_name()); result = true; } } break; } default : CYG_FAIL("Illegal change type passed to CdlExpression::update"); break; } CYG_REPORT_RETVAL(result); return result; } //}}} //{{{ Evaluation // ---------------------------------------------------------------------------- // Expression evaluation. At the end of the day everything filters through // to eval_internal() which should all the hard work. // // The eval() member function handles EvalException conflicts. The // eval_internal() member function does not, and is used for list // and goal expressions as well. void CdlExpressionBody::eval(CdlEvalContext& context, CdlSimpleValue& result) { CYG_REPORT_FUNCNAME("CdlExpression::eval"); try { eval_internal(context, result); // Evaluation has succeeded, so if there was an EvalException // conflict get rid of it. This can only happen in the context // of a transaction. if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { context.transaction->clear_conflicts(context.node, context.property, &CdlConflict_EvalExceptionBody::test); } } catch(CdlEvalException e) { if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { CdlConflict conflict = context.transaction->get_conflict(context.node, context.property, &CdlConflict_EvalExceptionBody::test); if (0 == conflict) { CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } else { CdlConflict_EvalException eval_conf = dynamic_cast<CdlConflict_EvalException>(conflict); CYG_ASSERTC(0 != eval_conf); if (eval_conf->get_explanation() != e.get_message()) { // Replace the conflict object. That way higher level code gets informed // there has been a change. context.transaction->clear_conflict(conflict); CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } } } throw; } } //}}} //{{{ Misc // ---------------------------------------------------------------------------- std::string CdlExpressionBody::get_original_string() const { CYG_REPORT_FUNCNAME("CdlExpression::get_original_string"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); CYG_REPORT_RETURN(); return expression_string; } //}}} //}}} //{{{ CdlListExpression //{{{ Construction // ---------------------------------------------------------------------------- // The normal sequence of events is: // // 1) higher level code calls CdlListExpressionbody::parse() // 2) this static member creates a new and empty list expression object. // The constructor need not do very much. // 3) the parse() member then fills in the newly created object // 4) the object is returned to higher-level code // 5) usually the list expression will now become part of // a property object by means of a copy constructor. // // The only complication is that a list expression contains a vector // of CdlExpression pointers which must be freed during the destructor. // The copy constructor does not make duplicates of the individual // expression objects, instead ownership is transferred. CdlListExpressionBody::CdlListExpressionBody() { CYG_REPORT_FUNCNAME("CdlListExpression:: default constructor"); CYG_REPORT_FUNCARG1XV(this); expression_string = ""; cdllistexpressionbody_cookie = CdlListExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } CdlListExpressionBody::CdlListExpressionBody(const CdlListExpressionBody& original) { CYG_REPORT_FUNCNAME("CdlListExpression:: copy constructor"); CYG_REPORT_FUNCARG2XV(this, &original); CYG_INVARIANT_CLASSOC(CdlListExpressionBody, original); expression_string = original.expression_string; // These copy across the pointers data = original.data; ranges = original.ranges; // And this clears out the pointers, but leaves the expression objects lying around CdlListExpression tmp = const_cast<CdlListExpression>(&original); tmp->data.clear(); tmp->ranges.clear(); cdllistexpressionbody_cookie = CdlListExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } //}}} //{{{ Destruction CdlListExpressionBody::~CdlListExpressionBody() { CYG_REPORT_FUNCNAME("CdlListExpression:: destructor"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); cdllistexpressionbody_cookie = CdlListExpressionBody_Invalid; expression_string = ""; for (std::vector<CdlExpression>::iterator i = data.begin(); i != data.end(); i++) { delete *i; *i = 0; } for (std::vector<std::pair<CdlExpression, CdlExpression> >::iterator j = ranges.begin(); j != ranges.end(); j++) { delete j->first; delete j->second; j->first = 0; j->second = 0; } data.clear(); ranges.clear(); CYGDBG_MEMLEAK_DESTRUCTOR(); CYG_REPORT_RETURN(); } //}}} //{{{ check_this() // ---------------------------------------------------------------------------- bool CdlListExpressionBody::check_this(cyg_assert_class_zeal zeal) const { if (CdlListExpressionBody_Magic != cdllistexpressionbody_cookie) { return false; } CYGDBG_MEMLEAK_CHECKTHIS(); switch(zeal) { case cyg_system_test : case cyg_extreme : case cyg_thorough : { for (std::vector<CdlExpression>::const_iterator i = data.begin(); i != data.end(); i++) { if (!(*i)->check_this(cyg_quick)) { return false; } } for (std::vector<std::pair<CdlExpression,CdlExpression> >::const_iterator j = ranges.begin(); j != ranges.end(); j++) { if (!(j->first->check_this(cyg_quick)) || !(j->second->check_this(cyg_quick))) { return false; } } } case cyg_quick : case cyg_trivial : case cyg_none : default : break; } return true; } //}}} //{{{ Parsing // ---------------------------------------------------------------------------- // Parsing a list expression involves repeated parsing of ordinary // expressions until an EOD token is reached. CdlListExpression CdlListExpressionBody::parse(std::string data) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::parse", "result %p"); // Allocate an expression object that can then be filled in. CdlListExpression result = new CdlListExpressionBody; // Do the parsing in a try/catch statement to make sure the // allocated expression gets freed on a parse error. try { int index = 0; int end_index = 0; CdlExprOp op = CdlExprOp_Invalid; CdlExpression expr1 = 0; do { // Try to parse the next expression in the list op = CdlExprOp_Invalid; expr1 = CdlExpressionBody::parse(data, index, op, end_index); // There should now be a valid expression, failure would have // resulted in an exception. CYG_ASSERT_CLASSC(expr1); // Allow for ranges. if (CdlExprOp_Range != op) { // A simple expression, just add it to the current data vector // "index" will contain the appropriate value. result->data.push_back(expr1); } else { // A range expression. Get the other end of the range. // This requires manipulating index a bit. CdlExpression expr2 = 0; index = end_index; op = CdlExprOp_Invalid; try { expr2 = CdlExpressionBody::parse(data, index, op, end_index); } catch (...) { delete expr1; throw; } result->ranges.push_back(std::make_pair(expr1, expr2)); } } while (CdlExprOp_EOD != op); } catch (...) { delete result; throw; } // Keep track of the original string for diagnostics purposes result->expression_string = data; CYG_REPORT_RETVAL(result); return result; } //}}} //{{{ update() // ---------------------------------------------------------------------------- // This code is invoked when it is necessary to update the references // for the list expression. There are four situations in which this // can happen: the package has just been loaded; the package is being // unloaded; a referenced target is being created; a referenced target is // being destroyed. // // The first two cases simply involve processing every expression that // makes up the overall list expression. The last two cases involve // searching through the expressions until an applicable one is found. // Note that an expression may contain multiple references to another // object, resulting in multiple calls to this function. bool CdlListExpressionBody::update(CdlTransaction transact, CdlNode source, CdlProperty source_prop, CdlNode dest, CdlUpdate change) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::update", "result %d"); CYG_REPORT_FUNCARG6XV(this, transact, source, source_prop, dest, change); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSC(source); CYG_PRECONDITION_CLASSC(source_prop); bool result = false; if ((CdlUpdate_Loaded == change) || (CdlUpdate_Unloading == change)) { std::vector<CdlExpression>::const_iterator expr_i; std::vector<std::pair<CdlExpression, CdlExpression> >::const_iterator pair_i; for (expr_i = data.begin(); expr_i != data.end(); expr_i++) { bool handled = (*expr_i)->update(transact, source, source_prop, dest, change); CYG_ASSERTC(handled); CYG_UNUSED_PARAM(bool, handled); } for (pair_i = ranges.begin(); pair_i != ranges.end(); pair_i++) { bool handled = pair_i->first->update(transact, source, source_prop, dest, change); CYG_ASSERTC(handled); handled = pair_i->second->update(transact, source, source_prop, dest, change); CYG_ASSERTC(handled); } result = true; } else { CYG_ASSERTC((CdlUpdate_Created == change) || (CdlUpdate_Destroyed == change)); std::vector<CdlExpression>::const_iterator expr_i; std::vector<std::pair<CdlExpression, CdlExpression> >::const_iterator pair_i; for (expr_i = data.begin(); !result && (expr_i != data.end()); expr_i++) { result = (*expr_i)->update(transact, source, source_prop, dest, change); } for (pair_i = ranges.begin(); !result && (pair_i != ranges.end()); pair_i++) { result = pair_i->first->update(transact, source, source_prop, dest, change); if (!result) { result = pair_i->second->update(transact, source, source_prop, dest, change); } } } CYG_REPORT_RETVAL(result); return result; } //}}} //{{{ Evaluation // ---------------------------------------------------------------------------- // Evaluation. The hard work is actually done in eval_internal() void CdlListExpressionBody::eval(CdlEvalContext& context, CdlListValue& result) { CYG_REPORT_FUNCNAME("CdlListExpression::eval"); CYG_REPORT_FUNCARG3XV(this, &context, &result); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); this->eval_internal(context, result); CYG_REPORT_RETURN(); } // ---------------------------------------------------------------------------- // This requires evaluating each expression in the data and ranges // vectors and adding the result to the appropriate vector in result. // Various error conditions are possible. void CdlListExpressionBody::eval_internal(CdlEvalContext& context, CdlListValue& result) { CYG_REPORT_FUNCNAME("CdlListExpression::eval_internal"); CYG_REPORT_FUNCARG2XV(this, &context); result.table.clear(); result.integer_ranges.clear(); result.double_ranges.clear(); CdlSimpleValue val1; CdlSimpleValue val2; try { for (std::vector<CdlExpression>::const_iterator i = data.begin(); i != data.end(); i++) { (*i)->eval_internal(context, val1); if ("" != val1.get_value()) { result.table.push_back(val1); } } for (std::vector<std::pair<CdlExpression,CdlExpression> >::const_iterator j = ranges.begin(); j != ranges.end(); j++) { j->first->eval_internal(context, val1); j->second->eval_internal(context, val2); if (val1.has_integer_value() && val2.has_integer_value()) { cdl_int x1 = val1.get_integer_value(); cdl_int x2 = val2.get_integer_value(); if (x1 > x2) { cdl_int tmp = x1; x1 = x2; x2 = tmp; } result.integer_ranges.push_back(std::make_pair(x1, x2)); } else if (val1.has_double_value() && val2.has_double_value()) { double x1 = val1.get_double_value(); double x2 = val2.get_double_value(); if (x1 > x2) { double tmp = x1; x1 = x2; x2 = tmp; } result.double_ranges.push_back(std::make_pair(x1, x2)); } else { throw CdlEvalException("Range expression involves non-numerical limits"); } } // Any problems would have resulted in an exception. If there // was a previous EvalExeption for this property, it is no // longer applicable if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { context.transaction->clear_conflicts(context.node, context.property, &CdlConflict_EvalExceptionBody::test); } } catch(CdlEvalException e) { if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { CdlConflict conflict = context.transaction->get_conflict(context.node, context.property, &CdlConflict_EvalExceptionBody::test); if (0 == conflict) { CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } else { CdlConflict_EvalException eval_conf = dynamic_cast<CdlConflict_EvalException>(conflict); CYG_ASSERTC(0 != eval_conf); if (eval_conf->get_explanation() != e.get_message()) { // Replace the conflict object. Higher level will be informed about this. context.transaction->clear_conflict(conflict); CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } } } throw; } CYG_REPORT_RETURN(); } //}}} //{{{ is_member() // ---------------------------------------------------------------------------- bool CdlListExpressionBody::is_member(CdlEvalContext& context, CdlSimpleValue& val) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::is_member (value)", "result %d"); CYG_REPORT_FUNCARG3XV(this, &context, &val); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); bool result = false; CdlListValue list_val; eval_internal(context, list_val); result = list_val.is_member(val); CYG_REPORT_RETVAL(result); return result; } bool CdlListExpressionBody::is_member(CdlEvalContext& context, std::string val) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::is_member (string)", "result %d"); CYG_REPORT_FUNCARG2XV(this, &context); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); bool result = false; CdlListValue list_val; eval_internal(context, list_val); result = list_val.is_member(val); CYG_REPORT_RETVAL(result); return result; } bool CdlListExpressionBody::is_member(CdlEvalContext& context, cdl_int val) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::is_member (int)", "result %d"); CYG_REPORT_FUNCARG3XV(this, &context, (int) val); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); bool result = false; CdlListValue list_val; eval_internal(context, list_val); result = list_val.is_member(val); CYG_REPORT_RETVAL(result); return result; } bool CdlListExpressionBody::is_member(CdlEvalContext& context, double val) { CYG_REPORT_FUNCNAMETYPE("CdlListExpression::is_member (double)", "result %d"); CYG_REPORT_FUNCARG2XV(this, &context); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); bool result = false; CdlListValue list_val; eval_internal(context, list_val); result = list_val.is_member(val); CYG_REPORT_RETVAL(result); return result; } //}}} //{{{ Misc // ---------------------------------------------------------------------------- std::string CdlListExpressionBody::get_original_string() const { CYG_REPORT_FUNCNAME("CdlListExpression::get_original_string"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); CYG_REPORT_RETURN(); return expression_string; } //}}} //}}} //{{{ CdlGoalExpression // ---------------------------------------------------------------------------- // Constructors etc. are pretty much as per ordinary and list // expressions. Most of the work is done in the private base class. CdlGoalExpressionBody::CdlGoalExpressionBody() : CdlExpressionBody() { CYG_REPORT_FUNCNAME("CdlGoalExpression::default_constructor"); CYG_REPORT_FUNCARG1XV(this); expression_string = ""; cdlgoalexpressionbody_cookie = CdlGoalExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } CdlGoalExpressionBody::CdlGoalExpressionBody(const CdlGoalExpressionBody& original) : CdlExpressionBody(original) { CYG_REPORT_FUNCNAME("CdlGoalExpression:: copy constructor"); CYG_REPORT_FUNCARG2XV(this, &original); CYG_INVARIANT_CLASSOC(CdlGoalExpressionBody, original); expression_string = original.expression_string; cdlgoalexpressionbody_cookie = CdlGoalExpressionBody_Magic; CYGDBG_MEMLEAK_CONSTRUCTOR(); CYG_POSTCONDITION_THISC(); CYG_REPORT_RETURN(); } CdlGoalExpressionBody::~CdlGoalExpressionBody() { CYG_REPORT_FUNCNAME("CdlGoalExpression:: destructor"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); cdlgoalexpressionbody_cookie = CdlGoalExpressionBody_Invalid; expression_string = ""; CYGDBG_MEMLEAK_DESTRUCTOR(); CYG_REPORT_RETURN(); } // ---------------------------------------------------------------------------- // Parsing. A goal expression acts a bit like a list expression with // implicit && operators between the various expressions. It could be // implemented as a vector of expressions (which might make diagnostics // easier) but it is almost as easy to derive a goal expression from // an ordinary one. CdlGoalExpression CdlGoalExpressionBody::parse(std::string data) { CYG_REPORT_FUNCNAMETYPE("CdlGoalExpression::parse", "result %p"); CdlGoalExpression result = new CdlGoalExpressionBody; try { int index = 0; CdlExprOp op = CdlExprOp_Invalid; int end_index = 0; // Parse the first expression in the data. CdlExpressionBody::continue_parse(result, data, index, op, end_index); // At this stage we have reached end-of-data or we should be // at the start of another expression - any binary or ternary // operands would have been subsumed in the previous expression. // We need to keep adding && operators and new expressions until // end-of-data. while (CdlExprOp_EOD != op) { op = CdlExprOp_And; CdlExpressionBody::continue_parse(result, data, index, op, end_index); } } catch(...) { delete result; throw; } // Keep track of the original expression string for diagnostics purposes result->expression_string = data; CYG_REPORT_RETVAL(result); return result; } // ---------------------------------------------------------------------------- void CdlGoalExpressionBody::eval(CdlEvalContext& context, bool& result) { CYG_REPORT_FUNCNAME("CdlGoalExpression::eval"); CYG_REPORT_FUNCARG2XV(this, &context); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); eval_internal(context, result); CYG_REPORT_RETURN(); } bool CdlGoalExpressionBody::eval(CdlEvalContext& context) { CYG_REPORT_FUNCNAMETYPE("CdlGoalExpression::eval", "result %d"); CYG_REPORT_FUNCARG2XV(this, &context); CYG_PRECONDITION_THISC(); CYG_PRECONDITION_CLASSOC(context); bool result; eval_internal(context, result); CYG_REPORT_RETVAL(result); return result; } // ---------------------------------------------------------------------------- // Provide access to the underlying CdlExpression object. This allows the // inference engine etc. to work out why a goal expression is failing CdlExpression CdlGoalExpressionBody::get_expression() { CYG_REPORT_FUNCNAMETYPE("CdlGoalExpression::get_expression", "result %p"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); CdlExpression result = this; CYG_REPORT_RETVAL(result); return result; } // ---------------------------------------------------------------------------- bool CdlGoalExpressionBody::check_this(cyg_assert_class_zeal zeal) const { if (CdlGoalExpressionBody_Magic != cdlgoalexpressionbody_cookie) { return false; } CYGDBG_MEMLEAK_CHECKTHIS(); // There is no data specific to a goal expression, just let the // underlying check_this() member do its stuff. return inherited::check_this(zeal); } // ---------------------------------------------------------------------------- std::string CdlGoalExpressionBody::get_original_string() const { CYG_REPORT_FUNCNAME("CdlGoalExpression::get_original_string"); CYG_REPORT_FUNCARG1XV(this); CYG_PRECONDITION_THISC(); CYG_REPORT_RETURN(); return expression_string; } // ---------------------------------------------------------------------------- void CdlGoalExpressionBody::eval_internal(CdlEvalContext& context, bool& result) { CYG_REPORT_FUNCNAME("CdlGoalExpression::eval_internal"); CYG_REPORT_FUNCARG2XV(this, &context); // The assertions are all done in the calling code // Start by evaluating the underlying expression CdlSimpleValue val; try { inherited::eval_internal(context, val); // The evaluation succeeded. Do we have an integer, a string, ...? if (val.has_integer_value()) { result = (0 != val.get_integer_value()); } else if (val.has_double_value()) { result = (0.0 != val.get_double_value()); } else { result = ("" != val.get_value()); } // If there is an EvalException conflict for this property, it is no longer applicable if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { context.transaction->clear_conflicts(context.node, context.property, &CdlConflict_EvalExceptionBody::test); } } catch(CdlEvalException e) { if ((0 != context.transaction) && (0 != context.node) && (0 != context.property)) { CdlConflict conflict = context.transaction->get_conflict(context.node, context.property, &CdlConflict_EvalExceptionBody::test); if (0 == conflict) { CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } else { CdlConflict_EvalException eval_conf = dynamic_cast<CdlConflict_EvalException>(conflict); CYG_ASSERTC(0 != eval_conf); if (eval_conf->get_explanation() != e.get_message()) { // Replace the conflict object. Higher level can detect this. context.transaction->clear_conflict(conflict); CdlConflict_EvalExceptionBody::make(context.transaction, context.node, context.property, e.get_message()); } } throw; } } CYG_REPORT_RETURN(); } //}}}