swig/Examples/mzscheme/simple/example.c

/* Simple example from documentation */
/* File : example.c */

#include <time.h>

double My_variable = 3.0;

/* Compute factorial of n */
int fact(int n) {
  if (n <= 1) return 1;
  else return n*fact(n-1);
}

/* Compute n mod m */
int my_mod(int n, int m) {
  return (n % m);
}


char *get_time() {
    long            ltime;
    time(&ltime);
    return ctime(&ltime);
}