summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorGary Houston <ghouston@arglist.com>1997-03-29 18:38:21 +0000
committerGary Houston <ghouston@arglist.com>1997-03-29 18:38:21 +0000
commit9337637f9a078de747d54e1448107a9a9d09e92d (patch)
tree974143a52b64f5df50f7929013aef1a34cbd0c2e
parent2b475559ff0088eedcb9012cbf2413d0c59cdeb5 (diff)
downloadguile-9337637f9a078de747d54e1448107a9a9d09e92d.tar.gz
* 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.
-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))