* boot-9.scm (netent:addrtype, servent:port): added missing

procedures.
(netent:net, servent:proto): repaired.
(utsname:sysname etc.): new accessors for uname.
* boot-9.scm (sockaddr:fam, sockaddr:path, sockaddr:addr,
sockaddr:port): new functions.

diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 59606a7..6c5dba4 100644 (file)
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,15 @@
+Thu Mar 27 05:06:00 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (netent:addrtype, servent:port): added missing
+       procedures.
+       (netent:net, servent:proto): repaired.
+       (utsname:sysname etc.): new accessors for uname.
+
+Tue Mar 25 03:04:03 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+       * boot-9.scm (sockaddr:fam, sockaddr:path, sockaddr:addr,
+       sockaddr:port): new functions.
+
 Wed Mar 19 04:50:34 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
        * boot-9.scm: define accessor procedures for the objects returned

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 923894c..470c039 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -695,7 +695,8 @@
 
 (define (netent:name obj) (vector-ref obj 0))
 (define (netent:aliases obj) (vector-ref obj 1))
-(define (netent:net obj) (vector-ref obj 2))
+(define (netent:addrtype obj) (vector-ref obj 2))
+(define (netent:net obj) (vector-ref obj 3))
 
 (define (protoent:name obj) (vector-ref obj 0))
 (define (protoent:aliases obj) (vector-ref obj 1))
@@ -703,7 +704,19 @@
 
 (define (servent:name obj) (vector-ref obj 0))
 (define (servent:aliases obj) (vector-ref obj 1))
-(define (servent:proto obj) (vector-ref obj 2))
+(define (servent:port obj) (vector-ref obj 2))
+(define (servent:proto obj) (vector-ref obj 3))
+
+(define (sockaddr:fam obj) (vector-ref obj 0))
+(define (sockaddr:path obj) (vector-ref obj 1))
+(define (sockaddr:addr obj) (vector-ref obj 1))
+(define (sockaddr:port obj) (vector-ref obj 2))
+
+(define (utsname:sysname obj) (vector-ref obj 0))
+(define (utsname:nodename obj) (vector-ref obj 1))
+(define (utsname:release obj) (vector-ref obj 2))
+(define (utsname:version obj) (vector-ref obj 3))
+(define (utsname:machine obj) (vector-ref obj 4))
 
 (define (file-position . args) (apply ftell args))
 (define (file-set-position . args) (apply fseek args))