[project @ 1996-01-08 20:28:12 by partain]

[ghc-hetmet.git] / ghc / misc / examples / cats / ccat4.c

diff --git a/ghc/misc/examples/cats/ccat4.c b/ghc/misc/examples/cats/ccat4.c
new file mode 100644 (file)
index 0000000..a02a710
--- /dev/null
+++ b/ghc/misc/examples/cats/ccat4.c
@@ -0,0 +1,18 @@
+#include <stdio.h>
+
+main ()
+{
+    char c[4096];
+    int  n;
+
+    while ((n=fread(c,1,4096,stdin)) > 0) {
+        fwrite(c,1,n,stdout);
+    }
+    exit(0);
+}
+
+/*
+--  8,937,757 bytes/sec ( 600KB input)
+-- 12,146,094 bytes/sec ( 9.3MB input)
+--  8,658,233 bytes/sec (25.5MB input)
+*/