CristalCaveGem » LustreC » Lustrec-Tests

#include <stdio.h>

#include <unistd.h>

#include "/usr/local/include/lustrec/io_frontend.h"

#include <stdlib.h>

#include <assert.h>

#include "ex1.h"

/* C code generated by lustrec

   SVN version number 255

   Code is C99 compliant */

/* Imported nodes declarations */

/* Global constants (definitions) */

void top_reset (struct top_mem *self) {

  _arrow_reset(self->ni_0);

  return;

}

void top_step (double in0, 

               double (*x), double (*y),

               struct top_mem *self) {

  _Bool __top_1;

  _arrow_step (1, 0, &__top_1, self->ni_0);

  if (__top_1) {

    *y = 0.;

    *x = 0.;

  } else {

    *y = self->_reg.__top_3;

    *x = (((1.5 * self->_reg.__top_3) - (0.7 * self->_reg.__top_2)) + (1.6 * in0));

  }

  self->_reg.__top_3 = *x;

  self->_reg.__top_2 = *y;

  return;

}

int main (int argc, char *argv[]) {

  /* Declaration of inputs/outputs variables */

  double in0 = 0.;

  double x = 0.;

  double y = 0.;

  /* Main memory allocation */

  top_ALLOC(static,main_mem);

  /* Initialize the main memory */

  top_reset(&main_mem);

  ISATTY = isatty(0);

  /* Infinite loop */

  while(1){

    fflush(stdout);

    in0 = _get_double("in0");

    top_step(in0, &x, &y, &main_mem);

    _put_double("x", x);

    _put_double("y", y);

  }

  return 1;

}