summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/ChangeLog12
-rw-r--r--ice-9/boot-9.scm17
2 files changed, 27 insertions, 2 deletions
diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 59606a735..6c5dba4f9 100644
--- 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 923894c8e..470c03949 100644
--- 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))