From cebab864852df931cc77ecb3d72883a7f931bf25 Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Wed, 5 Dec 2007 05:33:31 -0500 Subject: [PATCH] Start of work on the new IO system. --- lab/io-prims.ss | 8 ++++++++ lab/io-spec.ss | 11 +++++++++++ lab/test-io.ss | 6 ++++++ 3 files changed, 25 insertions(+) create mode 100644 lab/io-prims.ss create mode 100644 lab/io-spec.ss create mode 100755 lab/test-io.ss diff --git a/lab/io-prims.ss b/lab/io-prims.ss new file mode 100644 index 0000000..aea794a --- /dev/null +++ b/lab/io-prims.ss @@ -0,0 +1,8 @@ + +(library (io-prims) + (export ) + (import + (io-spec) + (except (ikarus))) + + ) diff --git a/lab/io-spec.ss b/lab/io-spec.ss new file mode 100644 index 0000000..de78074 --- /dev/null +++ b/lab/io-spec.ss @@ -0,0 +1,11 @@ + +(library (io-spec) + (export ) + (import + (except (ikarus) )) + + (define-struct $port + (buffer index size handlers codec attrs)) + + + ) diff --git a/lab/test-io.ss b/lab/test-io.ss new file mode 100755 index 0000000..6cee7e9 --- /dev/null +++ b/lab/test-io.ss @@ -0,0 +1,6 @@ +#!/usr/bin/env scheme-script + +(import + (except (ikarus)) + (io-prims)) +