1 files changed, 27 insertions, 0 deletions
diff --git a/nyqsrc/stats.c b/nyqsrc/stats.c
new file mode 100644
index 0000000..7f21612
--- /dev/null
+++ b/nyqsrc/stats.c
@@ -0,0 +1,27 @@
+/*
+ * stats.c
+ *
+ * produce statistics.
+ */
+#include "switches.h"
+#include <stdio.h>
+#ifndef mips
+#include "stdlib.h"
+#endif
+#include "xlisp.h"
+#include "sound.h"
+#include "falloc.h"
+
+
+void stats()
+{
+    nyquist_printf("\n\nNyquist statistics:\n\n");
+    nyquist_printf("Memory usage:\n");
+    nyquist_printf("\tconsumed %d pools of size %d\n", npools, MAXPOOLSIZE);
+    nyquist_printf("\tdata structure usage:\n");
+    nyquist_printf("\t\tsounds\t%d\n", sound_used);
+    nyquist_printf("\t\tsnd lists\t%d\n", snd_list_used);
+    nyquist_printf("\t\tsample blocks\t%d\n", sample_block_used);
+    nyquist_printf("\t\ttable space in bytes\t%ld\n", table_memory);
+    nyquist_printf("\n");
+}