/* This file was automatically generated by mcc */

#include "circlessrv.h"

void inittable()
{
  match[0] = (void*) colcsquare;
  match[1] = (void*) colcdist;
  match[2] = (void*) colccircu;
  match[3] = (void*) colcshell;
}


struct cterm * colcsquare(struct cterm *term)
{
int x1;
  x1 = toint(nthterm(term,1));
  return itocterm(square(x1));
}

struct cterm * colcdist(struct cterm *term)
{
int x1;
int x2;
int x3;
int x4;
  x1 = toint(nthterm(term,1));
  x2 = toint(nthterm(term,2));
  x3 = toint(nthterm(term,3));
  x4 = toint(nthterm(term,4));
  return dtocterm(dist(x1,x2,x3,x4));
}

struct cterm * colccircu(struct cterm *term)
{
double x1;
  x1 = todouble(nthterm(term,1));
  return dtocterm(circu(x1));
}

struct cterm * colcshell(struct cterm *term)
{
char* x1;
  x1 = tostring(nthterm(term,1));
  return itocterm(shell(x1));
}