Example #1
0
static int stream_evaluator_lua_delete(lua_State *L)
{
  GtStreamEvaluator **stream_evaluator;
  stream_evaluator = check_stream_evaluator(L);
  gt_stream_evaluator_delete(*stream_evaluator);
  return 0;
}
Example #2
0
static int stream_evaluator_lua_evaluate(lua_State *L)
{
  GtStreamEvaluator **stream_evaluator;
  GtNodeVisitor **genome_visitor;
  GtError *err;
  stream_evaluator = check_stream_evaluator(L);
  if (lua_gettop(L) >= 2) {
    genome_visitor = check_genome_visitor(L, 2);
  }
  else
    genome_visitor = NULL;
  err = gt_error_new();
  if (gt_stream_evaluator_evaluate(*stream_evaluator, false, false,
                                genome_visitor ? *genome_visitor : NULL, err)) {
    return gt_lua_error(L, err);
  }
  gt_error_delete(err);
  return 0;
}
Example #3
0
static int stream_evaluator_lua_show(lua_State *L)
{
  GtStreamEvaluator **stream_evaluator = check_stream_evaluator(L);
  gt_stream_evaluator_show(*stream_evaluator, NULL);
  return 0;
}