/* See {Octf.h} */
#include <Octf.h>

/* Last edited on 2007-02-04 00:20:51 by stolfi */

#include <fget.h>
#include <affirm.h>

#define _GNU_SOURCE
#include <stdio.h>
#include <assert.h>

#define Octf_C_copyright \
  "Copyright © 1998 Universidade Estadual de Campinas (UNICAMP)"

Place_t NextEK(Place_t p, int k)
  { if (k > 0)
      { do { p = NextE(p); k--; } while (k > 0); }
    else if (k < 0)
      { do { p = PrevE(p); k++; } while (k < 0); }
    return p;
  }

Place_t NextFK(Place_t p, int k)
  { if (k > 0)
      { do { p = NextF(p); k--; } while (k > 0); }
    else if (k < 0)
      { do { p = PrevF(p); k++; } while (k < 0); }
    return p;
  }

vec_typeimpl(Place_vec_t,Place_vec,Place_t);

vec_typeimpl(TwoPlaces_vec_t,TwoPlaces_vec,TwoPlaces_t);
vec_typeimpl(FourPlaces_vec_t,FourPlaces_vec,FourPlaces_t);
vec_typeimpl(SixPlaces_vec_t,SixPlaces_vec,SixPlaces_t);

#define Octf_C_author \
  "The Modula-3 version of this source file was created in 1998" \
  "by Luis Arturo Perez Lozada, UNICAMP, inspired on the " \
  "Modula-3 implementation of the quad-edge data structure by " \
  "J.Stolfi and R.M.Rosi (ca. 1994). " \
  "It was converted to C and substantially revised in\n" \
  "jan/2007 by J.Stolfi."