ViennaRNA-bindings-0.1.2.0: cbits/ffiwrap_part_func.c

// functions wrapped in here need a C-wrapper because they do "more work"
// before they can be called from C.

#include <stdio.h>

#include "part_func.h"
#include "part_func_co.h"

// wrap the RNAfold constrained partition function

float ffiwrap_pf_fold_constrained (const char *sequence, char *structure, int constrained)
{
  return pf_fold_par (sequence, structure, 0, 1, constrained, 0);
}

// wrap the RNAcofold constrained partition function.
//
// TODO the current implementation makes me cry.

cofoldF * ffiwrap_co_pf_fold_constrained (char *sequence, char *structure, int constrained)
{
  cofoldF x = co_pf_fold_par (sequence, structure, 0, 1, constrained);
  return &x;
}

// wrap RNAcofold partition function
//
// TODO the current implementation makes me cry.

cofoldF * ffiwrap_co_pf_fold (char * inp, char * str)
{
  cofoldF x = co_pf_fold (inp, str);
  return &x;
}