int
main (int argc, char **argv)
{
ArvEvaluator *evaluator;
GOptionContext *context;
GError *error = NULL;
int i;
double value;
context = g_option_context_new (NULL);
g_option_context_add_main_entries (context, arv_option_entries, NULL);
if (!g_option_context_parse (context, &argc, &argv, &error)) {
g_option_context_free (context);
g_print ("Option parsing failed: %s\n", error->message);
g_error_free (error);
return EXIT_FAILURE;
}
g_option_context_free (context);
arv_debug_enable (arv_option_debug_domains);
evaluator = arv_evaluator_new (NULL);
arv_evaluator_set_double_variable (evaluator, "TDBL", 124.2);
arv_evaluator_set_int64_variable (evaluator, "TINT", 3200);
if (arv_option_expressions == NULL) {
g_print ("Missing expression.\n");
return EXIT_FAILURE;
}
for (i = 0; arv_option_expressions[i] != NULL; i++) {
arv_evaluator_set_expression (evaluator, arv_option_expressions[i]);
value = arv_evaluator_evaluate_as_double (evaluator, &error);
if (error != NULL) {
g_print ("Error in '%s': %s\n", arv_option_expressions[i],
error->message);
g_error_free (error);
error = NULL;
} else
g_print ("%s = %g\n", arv_option_expressions[i], value);
}
g_object_unref (evaluator);
return EXIT_SUCCESS;
}
static double
arv_gc_swiss_knife_get_float_value (ArvGcFloat *gc_float, GError **error)
{
ArvGcSwissKnife *gc_swiss_knife = ARV_GC_SWISS_KNIFE (gc_float);
GError *local_error = NULL;
_update_variables (gc_swiss_knife, &local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return 0.0;
}
return arv_evaluator_evaluate_as_double (gc_swiss_knife->formula, NULL);
}
static gint64
_get_node_integer_value (ArvGcInteger *gc_integer, ArvGcConverterNodeType node_type, GError **error)
{
ArvGcConverter *gc_converter = ARV_GC_CONVERTER (gc_integer);
GError *local_error = NULL;
if (!_update_from_variables (gc_converter, node_type, &local_error)) {
if (local_error != NULL)
g_propagate_error (error, local_error);
switch (node_type) {
case ARV_GC_CONVERTER_NODE_TYPE_MIN:
return G_MININT64;
case ARV_GC_CONVERTER_NODE_TYPE_MAX:
return G_MAXINT64;
default:
return 0;
}
}
return arv_evaluator_evaluate_as_double (gc_converter->formula_from, NULL);
}
static double
_get_node_float_value (ArvGcFloat *gc_float, ArvGcConverterNodeType node_type, GError **error)
{
ArvGcConverter *gc_converter = ARV_GC_CONVERTER (gc_float);
GError *local_error = NULL;
if (!_update_from_variables (gc_converter, node_type, &local_error)) {
if (local_error != NULL)
g_propagate_error (error, local_error);
switch (node_type) {
case ARV_GC_CONVERTER_NODE_TYPE_MIN:
return -G_MAXDOUBLE;
case ARV_GC_CONVERTER_NODE_TYPE_MAX:
return G_MAXDOUBLE;
default:
return 0.0;
}
}
return arv_evaluator_evaluate_as_double (gc_converter->formula_from, NULL);
}
static void
_update_to_variables (ArvGcConverter *gc_converter, GError **error)
{
ArvGcNode *node;
GError *local_error = NULL;
GSList *iter;
const char *expression;
if (gc_converter->formula_to_node != NULL)
expression = arv_gc_property_node_get_string (gc_converter->formula_to_node, &local_error);
else
expression = "";
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
arv_evaluator_set_expression (gc_converter->formula_to, expression);
for (iter = gc_converter->expressions; iter != NULL; iter = iter->next) {
const char *expression;
const char *name;
expression = arv_gc_property_node_get_string (ARV_GC_PROPERTY_NODE (iter->data), &local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
name = arv_gc_property_node_get_name (iter->data);
arv_evaluator_set_sub_expression (gc_converter->formula_to, name, expression);
}
for (iter = gc_converter->constants; iter != NULL; iter = iter->next) {
const char *constant;
const char *name;
constant = arv_gc_property_node_get_string (ARV_GC_PROPERTY_NODE (iter->data), &local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
name = arv_gc_property_node_get_name (iter->data);
arv_evaluator_set_constant (gc_converter->formula_to, name, constant);
}
for (iter = gc_converter->variables; iter != NULL; iter = iter->next) {
ArvGcPropertyNode *variable_node = iter->data;
node = arv_gc_property_node_get_linked_node (ARV_GC_PROPERTY_NODE (variable_node));
if (arv_gc_feature_node_get_value_type (ARV_GC_FEATURE_NODE (node)) == G_TYPE_INT64) {
gint64 value;
value = arv_gc_integer_get_value (ARV_GC_INTEGER (node), &local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
arv_evaluator_set_int64_variable (gc_converter->formula_to,
arv_gc_property_node_get_name (variable_node),
value);
} else if (arv_gc_feature_node_get_value_type (ARV_GC_FEATURE_NODE (node)) == G_TYPE_DOUBLE) {
double value;
value = arv_gc_float_get_value (ARV_GC_FLOAT (node), &local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
arv_evaluator_set_double_variable (gc_converter->formula_to,
arv_gc_property_node_get_name (variable_node),
value);
}
}
if (gc_converter->value != NULL) {
node = arv_gc_property_node_get_linked_node (gc_converter->value);
if (arv_gc_feature_node_get_value_type (ARV_GC_FEATURE_NODE (node)) == G_TYPE_INT64) {
arv_gc_integer_set_value (ARV_GC_INTEGER (node),
arv_evaluator_evaluate_as_double (gc_converter->formula_to, NULL),
&local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
} else if (arv_gc_feature_node_get_value_type (ARV_GC_FEATURE_NODE (node)) == G_TYPE_DOUBLE) {
arv_gc_float_set_value (ARV_GC_FLOAT (node),
arv_evaluator_evaluate_as_double (gc_converter->formula_to, NULL),
&local_error);
if (local_error != NULL) {
g_propagate_error (error, local_error);
return;
}
} else
arv_warning_genicam ("[GcConverter::set_value] Invalid pValue node '%s'",
gc_converter->value);
}
}
