rename stdio-binary to binary

diff --git a/CHANGES.txt b/CHANGES.txt
index 81c554ceff415b898b24858028606f754907a2bf..fe97232ba299a86795a83f4f21c24b24e7620509 100644 (file)
--- a/CHANGES.txt
+++ b/CHANGES.txt
@@ -32,6 +32,9 @@ Factor 0.75:
   generic word. The HTTP server sets a timeout of 60 seconds for client
   requests.
 
+- Improved the words for doing binary I/O; see library/io/binary.factor
+  and the section in the handbook on binary I/O.
+
 + Compiler
 
 - The compiler now does constant folding for certain words with literal

diff --git a/library/bootstrap/boot-stage3.factor b/library/bootstrap/boot-stage3.factor
index fd174afcba5d6d22c70d9d3bcfebdc4fc46f6816..3d29c3743d2a89ecea54c290d0f094565eae80f1 100644 (file)
--- a/library/bootstrap/boot-stage3.factor
+++ b/library/bootstrap/boot-stage3.factor
@@ -58,7 +58,7 @@ t [
     "/library/in-thread.factor"
 
     "/library/io/directories.factor"
-    "/library/io/stdio-binary.factor"
+    "/library/io/binary.factor"
     
     "/library/eval-catch.factor"
     "/library/tools/listener.factor"

diff --git a/library/io/binary.factor b/library/io/binary.factor
new file mode 100644 (file)
index 0000000..f68f2f7
--- /dev/null
+++ b/library/io/binary.factor
@@ -0,0 +1,20 @@
+! Copyright (C) 2003, 2005 Slava Pestov.
+! See http://factor.sf.net/license.txt for BSD license.
+IN: stdio
+USING: kernel lists math sequences strings ;
+
+: be> ( seq -- x ) 0 swap [ >r 8 shift r> bitor ] each ;
+: le> ( seq -- x ) reverse be> ;
+
+: nth-byte ( x n -- b ) -8 * shift HEX: ff bitand ;
+
+: >le ( x n -- string ) [ nth-byte ] project-with >string ;
+: >be ( x n -- string ) >le reverse ;
+
+: read-le2 ( -n) 2 read le> ; : read-be2 ( -n) 2 read be> ;
+: read-le4 ( -n) 4 read le> ; : read-be4 ( -n) 4 read be> ;
+: read-le8 ( -n) 8 read le> ; : read-be8 ( -n) 8 read be> ;
+
+: write-le2 ( n-) 2 >le write ; : write-be2 ( n-) 2 >be write ;
+: write-le4 ( n-) 4 >le write ; : write-be4 ( n-) 4 >be write ;
+: write-le8 ( n-) 8 >le write ; : write-be8 ( n-) 8 >be write ;

diff --git a/library/io/stdio-binary.factor b/library/io/stdio-binary.factor
deleted file mode 100644 (file)
index f68f2f7..0000000
--- a/library/io/stdio-binary.factor
+++ /dev/null
@@ -1,20 +0,0 @@
-! Copyright (C) 2003, 2005 Slava Pestov.
-! See http://factor.sf.net/license.txt for BSD license.
-IN: stdio
-USING: kernel lists math sequences strings ;
-
-: be> ( seq -- x ) 0 swap [ >r 8 shift r> bitor ] each ;
-: le> ( seq -- x ) reverse be> ;
-
-: nth-byte ( x n -- b ) -8 * shift HEX: ff bitand ;
-
-: >le ( x n -- string ) [ nth-byte ] project-with >string ;
-: >be ( x n -- string ) >le reverse ;
-
-: read-le2 ( -n) 2 read le> ; : read-be2 ( -n) 2 read be> ;
-: read-le4 ( -n) 4 read le> ; : read-be4 ( -n) 4 read be> ;
-: read-le8 ( -n) 8 read le> ; : read-be8 ( -n) 8 read be> ;
-
-: write-le2 ( n-) 2 >le write ; : write-be2 ( n-) 2 >be write ;
-: write-le4 ( n-) 4 >le write ; : write-be4 ( n-) 4 >be write ;
-: write-le8 ( n-) 8 >le write ; : write-be8 ( n-) 8 >be write ;