Function sql3util_bind_value

pure-sql3/sql3util.c:182–213

   which need these conversions. */

int sql3util_bind_value(sqlite3_stmt* stm, int col, pure_expr *x)
{
  int32_t iv; double dv; const char *sv; void *pv; mpz_t zv;
  size_t n;
  if (pure_is_int(x, &iv))
    return sqlite3_bind_int(stm, col, iv);
  else if (pure_is_mpz(x, &zv)) {
    mpz_clear(zv);
    return sqlite3_bind_int64(stm, col, pure_get_int64(x));
  } else if (pure_is_double(x, &dv))
    return sqlite3_bind_double(stm, col, dv);
  else if (pure_is_string(x, &sv))
    return sqlite3_bind_text(stm, col, sv, -1, SQLITE_TRANSIENT);
  else if (pure_is_tuplev(x, &n, NULL) && n==2) {
    pure_expr **xs;
    int res = 0;
    pure_is_tuplev(x, &n, &xs);
    if (xs && pure_is_int(xs[0], &iv) && pure_is_pointer(xs[1], &pv))
      res = sqlite3_bind_blob(stm, col, pv, iv, SQLITE_TRANSIENT);
    else
      pure_throw(pure_app(pure_quoted_symbol(pure_sym("sql3::bad_sql_value")),
			  x));
    if (xs) free(xs);
    return res;
  } else if (pure_is_sqlnull(x))
    return sqlite3_bind_null(stm, col);
  else {
    pure_throw
      (pure_app(pure_quoted_symbol(pure_sym("sql3::bad_sql_value")), x));
    return 0;
  }
}

void sql3util_result_value(sqlite3_context* ctx, pure_expr *x)
{