Imported from /srv/lorry/lorry-area/swig-tarball/swig-1.3.40.tar.gz.HEADswig-1.3.40master

1 files changed, 24 insertions, 0 deletions

diff --git a/Examples/mzscheme/simple/example.c b/Examples/mzscheme/simple/example.c
new file mode 100644
index 0000000..f2b0747
--- /dev/null
+++ b/Examples/mzscheme/simple/example.c
@@ -0,0 +1,24 @@
+/* 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);
+}