From cba2b31e45e0b42315b654c98432b7067c1e488a Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Sun, 25 Sep 2011 16:38:49 -0400
Subject: [PATCH] more support for some character stuff

---
 examples/read-bytes.rkt                       |  9 +++++++
 js-assembler/runtime-src/baselib-ports.js     |  1 +
 .../runtime-src/baselib-primitives.js         | 27 ++++++++++++++++++-
 lang/kernel.rkt                               |  4 +--
 4 files changed, 38 insertions(+), 3 deletions(-)
 create mode 100644 examples/read-bytes.rkt

diff --git a/examples/read-bytes.rkt b/examples/read-bytes.rkt
new file mode 100644
index 0000000..c026a2b
--- /dev/null
+++ b/examples/read-bytes.rkt
@@ -0,0 +1,9 @@
+#lang planet dyoo/whalesong
+
+(let loop ([b (read-byte)])
+  (cond
+   [(eof-object? b)
+    (void)]
+   [else
+    (display (string (integer->char b)))
+    (loop (read-byte))]))
\ No newline at end of file
diff --git a/js-assembler/runtime-src/baselib-ports.js b/js-assembler/runtime-src/baselib-ports.js
index f84d490..f50683d 100644
--- a/js-assembler/runtime-src/baselib-ports.js
+++ b/js-assembler/runtime-src/baselib-ports.js
@@ -124,6 +124,7 @@
                 cleanupAndContinue();
             });
         MACHINE.params['currentDisplayer'](MACHINE, textFieldDiv.get(0));
+        readLine.focus();
     };
 
 
diff --git a/js-assembler/runtime-src/baselib-primitives.js b/js-assembler/runtime-src/baselib-primitives.js
index a7843c5..47f2a30 100644
--- a/js-assembler/runtime-src/baselib-primitives.js
+++ b/js-assembler/runtime-src/baselib-primitives.js
@@ -75,6 +75,17 @@
     var checkNatural = baselib.check.checkNatural;
     var checkNaturalInRange = baselib.check.checkNaturalInRange;
     var checkInteger = baselib.check.checkInteger;
+    var checkIntegerForChar = baselib.check.makeCheckArgumentType(
+        function(x) {
+            return (baselib.numbers.isInteger(x) && 
+                    ((baselib.numbers.lessThanOrEqual(0, x) && 
+                      baselib.numbers.lessThanOrEqual(x, 55295))
+                     ||
+                     (baselib.numbers.lessThanOrEqual(57344, x) && 
+                      baselib.numbers.lessThanOrEqual(x, 1114111))));
+        },
+        'integer'
+    );
     var checkRational = baselib.check.checkRational;
     var checkPair = baselib.check.checkPair;
     var checkList = baselib.check.checkList;
@@ -1081,6 +1092,15 @@
         });
 
 
+    installPrimitiveProcedure(
+        'integer->char',
+        1,
+        function(M) {
+            var ch = baselib.numbers.toFixnum(checkIntegerForChar(M, 'integer->char', 0));
+            return baselib.chars.makeChar(String.fromCharCode(ch));
+        });
+
+    
     installPrimitiveProcedure(
         'char-upcase',
         1,
@@ -1290,7 +1310,12 @@
         });
 
 
-
+    installPrimitiveProcedure(
+        'eof-object?',
+        1,
+        function(M) {
+            return M.e[M.e.length -1] === baselib.constants.EOF_VALUE;
+        });
 
     installPrimitiveProcedure(
 	'number?',
diff --git a/lang/kernel.rkt b/lang/kernel.rkt
index 4b81c63..dd8bbb0 100644
--- a/lang/kernel.rkt
+++ b/lang/kernel.rkt
@@ -450,7 +450,7 @@ char=?
 ;;  char-upper-case?
 ;;  char-lower-case?
 ;;  char->integer
-;;  integer->char
+  integer->char
   char-upcase
   char-downcase
 
@@ -469,7 +469,7 @@ char=?
   make-placeholder
   placeholder-set!
 
-
+  eof-object?
   read-byte)