/* See cpkbasic.h */
/* Last edited on 2005-02-04 02:46:44 by stolfi */

#include <cpkbasic.h>
#include <i2.h>
#include <r2.h>
#include <vec.h>
#include <stdlib.h>

/* VECTORS OF INTEGER PAIRS */

i2_vec_t i2_vec_new(nat nel)
  { /* This is not a macro only because gcc does not allow cast of struct: */
    vec_t v = vec_new(nel, sizeof(i2_t));
    i2_vec_t r;
    r.nel = v.nel; r.el = (i2_t*)v.el;
    return r;
  }

/* VECTORS OF REAL PAIRS */

r2_vec_t r2_vec_new(nat nel)
  { /* This is not a macro only because gcc does not allow cast of struct: */
    vec_t v = vec_new(nel, sizeof(r2_t));
    r2_vec_t r;
    r.nel = v.nel; r.el = (r2_t*)v.el;
    return r;
  }